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Preface 

The Symbolic Programming System is designed to simplify the preparation of pro- 
grams for the ibm 1620 Data Processing System and the ibm 1710 Control System. 
The development of larger and more versatile data processing systems like the 
1620 and 1710 has resulted in a greater number of, and more complex, machine 
language instructions. The difficulties of coding in machine language - a tedious 
and time-consuming task - have been recognized and one of the efforts at sim- 
plification is the system known as Symbolic Programming. 

The Symbolic Programming System permits the programmer to code in a sym- 
bolic language that is more meaningful and easy to handle than numerical machine 
language, sps automatically assigns and keeps a record of storage locations, and 
checks for coding errors. By relieving the programmer of these burdensome tasks, 
sps significantly reduces the amount of programming time and effort required. 

This manual is intended to serve as a reference text for the 1620/1710 Symbolic 
Programming System. It assumes the programmer is familiar with the methods of 
data handling and the functions of instructions in the 1620 Data Processing System. 
For those without such knowledge, information on 1620 and 1710 instructions may 
be found in the ibm Reference Manual, 1620 Data Processing System (Form A 26- 
4500) and the ibm Reference Manual, 1710 Control System (Form A26-5601). 
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Introduction 

The 1620/1710 Symbolic Programming System may be divided into the symbolic 
language used in writing a program, the library containing the subroutines and 
linkage instructions (macro-instructions) that may be incorporated into the pro- 
gram, and the processor program that is used to assemble the user's program. 



Source program 



Advantages of SPS 



Symbolic Language 

Symbolic language is the notation used by the programmer to write (code) the 
program. The program written in sps language is called a "source program." This 
language provides the programmer with mnemonic operation codes, special char- 
acters, and other necessary symbols. The use of symbolic names (labels) makes a 
program independent of actual machine locations. Programs and routines written 
in sps language can be relocated and combined as desired. Routines within a pro- 
gram can be written independently with no loss of efficiency in the final program. 
Symbolic instructions may be added or deleted without reassigning storage ad- 
dresses. 



Linkage instructions 



Object program 



SPS processors 



Function of processor programs 



Macro-instructions 

The macro-instructions that are written in a source program are commands to the 
processor to generate the necessary linkage instructions. Linkage instructions pro- 
vide the path to a subroutine and a return path to the user's program. These sub- 
routines may be any of seventeen ibm Library subroutines like floating divide, 
square root, and arctangent; or special subroutines prepared by the user. The 
ability to process macro-instructions simplifies programming and further reduces 
the time required to write a program. 

The source program is punched into an input tape; or into cards if the system 
is equipped with the ibm 1622 Card Read Punch unit. The source program, after 
it is punched, together with the Library subroutines that are required, is assembled 
into a finished machine language program known as the "object program." The pro- 
gram is self-loading (contains its own loader program) and can be run at any time. 

Assembly is accomplished by the sps processor which is available in two forms: 
(1) the 1620/1710 two-pass paper tape processor program, and (2) the 1620/1710 
two-pass card processor program. Assembly may also be accomplished by using 
the 7090 processor for assembling 1620/1710 programs. Preparation of the source 
program is the same for all the processors. The differences between the latter 
processor and the 1620/1710 processors are described in appropriate sections of 
this manual. 

The sps processor programs and the Library subroutines described in this 
manual are available through your ibm sales representative. For distribution, the 
card and tape versions of the 1620/1710 sps are numbered 1620-SP-020 and 1620- 
SP-021, respectively. 

The function of the processor programs is to translate the symbolic language 
of the programming system into the language of the 1620. The translation is one 
for one — the processor produces one machine language instruction for each ma- 
chine instruction, except macro-instructions, written in symbolic form. 
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Definition 
Operation codes 



Define areas and constants 



Instructions to the machine 



Control the processor 



Symbolic Programming 

Symbolic programming may be defined as a method wherein names, characteristics 
of instructions, or closely related symbols are used in writing a program. The core 
of the symbolic, language is the operation code, sps permits the programmer to 
write (code) in a more simple, familiar language and does not require as detailed 
machine knowledge because, in coding the program, the programmer uses opera- 
tion codes that are in easily remembered mnemonic form rather than in the nu- 
merical language of the machine. Operation codes are of three types : Declarative, 
Imperative, and Control. 

Declarative Operation Codes 

Declarative operation codes are used for assignment of core storage for input areas, 
output areas, and working areas. The assigned areas are utilized by the object pro- 
gram and may contain the data to be processed and/or the constants (numerical or 
alphameric characters) required in the object program when the data is processed. 
Declarative statements never generate instructions in the object program, but may 
generate constants that are assembled as part of the object program. 

Imperative Operation Codes 

Imperative operation codes specify the operations or instructions that the object 
program is to perform. In this group are included all arithmetic, branching, and 
input/output statements. Most statements on the coding sheet prepared by the 
programmer are of this type. These statements are translated one for one and are 
assembled as the machine language instructions of the object program. 

Control Operation Codes 

Control operation codes are commands to the processor that provide the program- 
mer with control over portions of the assembly process. Instructions of this type 
do not normally generate instructions in the object program. 

The actual and mnemonic operation codes within these categories are pre- 
sented under programming the 1620/1710 using sps. 

The statements or instructions in the source program must be entered by the 
programmer, in logical sequence, on the coding sheet. 



Source language format 



Field 



Coding Sheet 

The programmer enters all information relevant to the coding of the source pro- 
gram and subsequent assembly of the object program on coding sheet, Form X26- 
5627 (Figure 1). Figure 2 shows a sample input card, Form J59692. The format of 
the input card or paper tape record follows the headings on the coding sheet. In 
paper tape, the first punching position of a record is said to be column 1. The card 
columns assigned to a single heading are referred to as a field. Following is an 
explanation of the headings in the order of their appearance on the sheet. 



Heading Line 

Space is provided at the top of each page for the name of the Program, Routine, 
and Programmer, and for the Date. This information does not constitute part of the 
source program language and is not punched. 

Page Number (Columns 1-2) 

A 2-digit page number is entered to maintain the order of the program sheets. This 
normally numerical entry becomes the first two digits of each statement that is 
punched from the sheet. 
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Figure 1. 1620/1710 sps Coding Sheet 
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Figure 2. sps Source Program Card 



Sequencing source statements 



Line Number (Columns 3-5) 

A 3-digit line number is entered on the sheet to maintain the sequence of the state- 
ments coded. The first 20 lines on ea,ch sheet are prenumbered 010, 020, 030, etc., 
through 200. At the bottom of the sheet, six nonnumbered lines are provided for 
inserts or for continuing the line numbering. The inserted statement should be 
numbered so that it falls sequentially between the statements immediately preced- 
ing and following it. The arrangement of the prenumbered lines, 010, 020, etc., per- 
mits up to nine statements to be inserted between any two statements. After the 
cards for each of the lines are punched, they should be placed in correct numerical 
order. 



Length 



Best labels meaningful 



Four-position field 



Mnemonic or actual, 
left-justified 



Label (Columns 6-1 1) 

The label field represents the machine location of either data or instructions. The 
field may be left blank or may be filled with a symbolic address. Only the data or 
instructions that are referred to elsewhere in the program need have a label. 

A label may consist of up to six alphameric characters beginning at the left- 
most position in the label field. At least one of the characters must be alphabetic 
or one of four permissible special characters, namely, the equal sign ( = ), shilling 
symbol (/), at sign (@), and period (.). 

The best labels to select are those that are mnemonically descriptive of the 
area or instruction to which they are assigned. Labels that have an obvious mean- 
ing not only provide easily remembered references for the original programmer 
but also assist others who may assume responsibility for the program. 

Operation (Columns 12-15) 

The four-position operation field contains the actual two-digit numerical operation 
code or the mnemonic representation of the operation code to be performed. If the 
first character is numerical, no check of the operation code occurs and the numeri- 
cal parts of the two-digit internal representation of the first two characters is taken 
as the operation code; that is, if the programmer writes 4BNF, the resulting opera- 
tion code is 42. In either case, the first character of the operation code must start 
in the leftmost position, column 12, of the operation field. Listings of permissible 
mnemonic codes and actual operation codes are shown under programming the 
1620/1710 using sps. 



If declarative 
If imperative 



If control 



Operands and Remarks (Columns 16-75) 

The operands and remarks field is used to specify the information that is to be 
operated upon and may contain, if desired, any additional remarks concerning the 
statement. 

For declarative operation statements, the first operand usually defines the 
length, the remaining operands, if present, specify constants, an address, and re- 
marks. 

For imperative operation statements, the operands and remarks field contains, 
at most, four items: three of these are pperands and the fourth, remarks. The first 
two operands may be the symbolic or actual addresses of data or instructions, the 
P and Q portions of the instruction. The third operand, which should be numerical, 
is called the flag indicator operand and is used to set flags in the assembled instruc- 
tion. The final item consists of the remarks associated with each statement. Impera- 
tive statements need not contain all four items. Any one or more, than one may be 
omitted. The two special characters which may not be used in an operand are the 
close and open parentheses, ) ( . 

A control operation statement normally consists of only one operand. 
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Statement Writing 



Rules 



Certain rules must be observed in writing or coding the statements that make up 
the source program. This section contains rules that apply to the statements and 
their elements, rules governing the length and types of statements, use of special 
characters, the flag indicator operand and immediate (Q) operand, types of ad- 
dresses used as operands, and address adjustment by arithmetic, a method that 
relieves the programmer of considerable effort and reduces the number of symbols 
required for a source program. 



Types 

Elements 
Length 



Statements 

Symbolic statements are classed according to the operation code they contain, and 
thus are designated Declarative, Imperative, or Control statements. In addition to 
the page and line number, a statement may contain a label, operation code, oper- 
ands, and remarks. No statement in the source program may exceed 75 characters 
in length. Since page number, line number, label, and operation require 15 posi- 
tions, the operands and remarks field may not exceed 60 characters. In the case of 
the paper tape sps, the end-of-line character is considered to be part of the oper- 
ands and remarks field. 



Use 

Item 

Hems in imperative statement 



Comma in place of 
omitted item 



Use of Special Characters in Statement Writing 

The comma, asterisk, end-of-line character, blank, at ( @ ) sign, and dollar sign are 
special characters which possess distinct meanings in the writing of source pro- 
grams. Their use as well as that of the special characters used as operators for 
address adjustment are explained in detail in this section. 

Comma 

The comma is normally used to separate items in a statement. The term item refers 
here to parts of the operands and remarks field, such as the P and Q operands, the 
flag indicator operand, remarks, length, constants, etc. An imperative statement 
may consist of four items: the P and Q operands, the flag indicator operand, and 
remarks, but need not contain all four items. Any one or more than one may be 
omitted. 

If one item is omitted and more items follow, the comma that normally follows 
the omitted item must be present. For example, if the flag indicator operand is 
omitted but remarks are present in the instruction, the format of the field will be: 



T,F, . 



Operands & Remark* 



DE,LTA,X..X. ,,. TRANSMIT, .VALP.E. ,Q,F, ,IN.C.REMEN.T(B . . . 



Commas. before remarks 



No commas if last item(s) 
omitted 



All imperative statements that contain remarks must include three commas 
in the operands field, even when the operands are omitted. During assembly, the 
omitted P or Q operands will be replaced by zeros in the P or Q portion of the 
assembled instruction. 

Commas indicating omission need not be present in statements in which the 
last item(s) is omitted. For example, in the statement in which both the flag indi- 
cator operand and remarks are omitted, no commas need be used following the 
second operand. 
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Line 
3 5 



Operation 

1215 



T.F. 



Operands & Remarks 



. HHI.T . AJS i .iX® 



Examples 



Indicates comments 



As first character or term(s) 
of an operand 



In address adjustment 
for multiplication 



For paper tape 



Not for cards 



12-5-8 code 



Ignored except in DAC 
statements 



Label Operation 



Operandi & Remarks 



HALT, ,TN,S.T.RU,C,T,I0M€1 , 



1,6,3,5,2,., 1,7,8.6.5 Ann .FACTOR, B, TO .FACT.O.R ,A(E 



Statement 010 which is a halt operation requires three commas (, , ,) in front 
of the remarks, to take the place of the P, Q, and flag indicator operands. In state- 
ment 020, the first two commas set off the P and Q operands, whereas the third 
comma takes the place of the omitted flag indicator operand. The number of com- 
mas required for declarative statements may be one or two as explained under 

DECLARATIVE OPERATIONS. 

Asterisk 

The asterisk has three uses: in writing comments (only), as an operand or term 
of an operand, and in address adjustment. 

Lines of descriptive information may be inserted in the program by placing 
an asterisk ( * ) in column 6 of the label field. Comments then may be written in 
columns 7 through 75. Comments inserted in this way will appear in the symbolic 
output, but will not affect in any way the operation of the program. A comment 
statement does not produce an entry in the object program. 



Label Operolior 



'.REMAB 



Operandi & Remarks 



,N, ,B,E. .WRIT.TEN. ,IJ), SUCH, A, MAKNF.R .S.O. A S. .T.O. .D.E.SCR.I ,BE, ,TBE, fRppR)nfl 



MMfl WMAM ,r,Q,I.W« .START®, , 



Statements 010 and 020 are remarks that do not generate instructions. 

The asterisk is used as the first character or term of an operand in an impera- 
tive statement and is interpreted by the program as the address of the high-order 
(leftmost) position of the address of the instruction. It may be used as any term 
of the operand to indicate the high-order (leftmost) position of the address of 
the instruction. 

When the asterisk is used in address adjustment as an operator, it indicates to 
the processor that a multiplication must be performed in order to adjust the address. 

End-of-Line Character 

An end-of-line character @ is required on source statements that are to be proc- 
essed on paper tape. Use of this character allows statements to be located on the 
tape immediately adjacent to each other, with no intervening blank characters. 
The statements are in "free" form; that is, they are not assigned a fixed number of 
positions. 

Source statements that are to be processed in punched card form do not require 
an end-of-line character; the remainder of the line is left blank and this is recog- 
nized by the processor as the end of the statement. 

When the end-of-line character is punched in a card for off-line conversion to 
paper tape, it is represented by a 12, 5, 8 punch combination. 

Blank Character 

A blank character in operands of the source statement is ignored by the processor 
except in dac statements (alphameric constants), in which blanks are considered 
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valid characters. In effect, the statement is condensed before it is processed. 

Because blanks are ignored by the processor, the programmer, to achieve 
clarity on his coding sheets and output listing, may write his statements in modified 
"fixed" form. 



No blanks in flag indicator 
operand 



As a constant 
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In this example, columns 16, 36, and 57 are arbitrary choices for the locations of the 
operands. The comma following or replacing the P operand may be in any column 
from 16 through 35; the comma following or replacing the Q operand must be in 
column 56, the position preceding the flag indicator operand. 

Blanks are not permitted within a flag indicator operand. For paper tape in- 
put, this operand must begin immediately following the second comma and must 
be immediately followed by a comma or end-of-line character. For card input, the 
flag indicator operand can be followed by a comma, record mark, or blanks in the 
remainder of the card. A blank or blanks in the address operand of a declarative 
statement, when set off by commas, is interpreted by the processor as a zero address. 
"At" Sign 

When the "at" sign ( @ ) is used as part of a constant being defined by a dc, dsc, or 
dac statement, a record mark (=}=) is created by the processor and inserted into the 
constant in place of the @. Specific rules for use of the @ are covered under de- 
clarative OPERATIONS. 

Dollar Sign 

The dollar sign ($) is used in an operand to instruct the processor that the symbolic 
address in an operand has a specific heading character. The $ is written between 
the heading character and the symbol. For example, in an operand the heading 
character "5" and the symbol "sum" appear as 5$sum. For additional information 
on the use of the $, refer to head - heading in the Control Operations section. 



Must he sequential 



Omitted Hag indicator operand 



Operands 

Flag Indicator Operand 

The flag indicator operand specifies the positions that are to be flagged in the as- 
sembled instruction. These positions are numbered from left to right, through 11, 
and must be listed sequentially. For example, if positions 2, 7, and 10 are to be 
flagged, the flag indicator operand should be coded 2710, not 2107. All positions 
may be flagged, if desired. The operand then will be coded 01234567891011 and 
must be written in that order. 

Normally no flags are set when the flag indicator operand is omitted. How- 
ever, if the flag indicator operand is omitted from all immediate instructions, ex- 
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In indirect addressing 



With immediate instructions 



Qt automatically flagged 



cept tdm, a flag is automatically set in position Q 7 . If the operand is present, only 
the positions indicated are flagged. 

The flag indicator operand can be used to insert a flag over the units position 
of the P and Q addresses, if the source program is written for a 1620 or 1710 that has 
Indirect Addressing ( special feature ) . 

Immediate (Q Operand) 

With immediate-type instructions such as Add Immediate ( am ), Subtract Immedi- 
ate (sm), and with actual operation codes that begin with the digit 1, the Q oper- 
and represents the actual data to be used by the instruction. It may be absolute or 
symbolic as previously defined. High-order zeros of absolute data may be elimi- 
nated. 

During assembly, the processor automatically places a flag over position Q r 
of an immediate instruction unless a flag indicator operand indicates otherwise. For 
example, the statement 
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causes the numbers 10023 to be subtracted from the field called total because the 
flag that terminates the field to be subtracted is automatically placed over position 
Q 7 . However, the statement 
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Exception: TDM 



will cause only the number 23 to be subtracted from the field called total because 
the flag indicator operand directs that the field-terminating flag be placed over po- 
sition Q 10 rather than Q T . There is one exception to this rule: a transmit digit imme- 
diate instruction (tdm, code 15) does not require a flag; therefore, none is auto- 
matically set by the processor. 



Length 



Types of Addresses Used as Operands 

Operands assembled by the processor may be of three types: actual, symbolic, and 
asterisk. The individual applications for a particular type of address are described 
in the section programming the 1620/1710 using sps. 

Actual Address 

An actual address consists of five digits 00000-19999 for a standard capacity ma- 
chine and is, as the name implies, the actual core storage address of a piece of data 
or an instruction. High-order zeros of an actual address may be eliminated. For ex- 
ample, the statement 
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causes the data in storage location 12251 to be added to the data in storage location 
03684. 
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Must he defined elsewhere 



Length 



Symbolic Address 

A symbolic address is the name assigned by the programmer to the location of an 
instruction or a piece of data. A symbolic address is valid only if it is defined ( given 
an actual numerical value) by a declarative statement somewhere in the source pro- 
gram or if it is used as the label of an instruction. Symbolic addresses may contain 
from one to six characters (letters, digits, or special characters) with the following 
restrictions: 

a. At least one character must be nonnumerical. 

b. The only permissible special characters are: equal sign ( = ), shilling sym- 
bol (/), at sign ( @ ), and period (.) . 

It should be noted that blanks have no meaning within a symbol because thev 
are eliminated during assembly. 

The example shown below contains both an actual address and a symbolic ad- 
dress. 
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As prefix to imperative operand 



In this example, the data in the field whose actual address is 12251 is added to a 
field whose address is the symbolic name total. 

Asterisk Address 

When the asterisk is used as the first character of an operand in an imperative oper- 
ation, it is interpreted by the processor as meaning the address of the high-order 
(leftmost) position of the instruction itself. For example, the statement 



Label Operation 
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Operands & Remarks 



S.TAK.T.. tg l. 



As prefix to declarative or 
control operands 



indicates to the processor that the Q portion of the instruction should contain the 
address of the instruction itself. This instruction is assembled as 44 01234 01876 
where start equals 1234 and the address assigned to the instruction is 1876. Thus, 
when executed in the object program, this instruction examines its own leftmost 
position (1876) for a flag and either branches to the instruction at location 01234 
or continues, on the basis of the examination, to the next instruction located at 
01888. 

When an asterisk ( * ) address is used with either declarative or control oper- 
ations, it refers to the rightmost position of storage last assigned by the location 
assignment counter of the processor — not to the leftmost character of the instruc- 
tion. For example, the statements 
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produce the instruction 



161204570004= 



14 



Since record marks can be defined only in declarative operations, an imperative 
statement should be followed by a dc statement when a record mark is required 
in the instruction. The rightmost position of the instruction is the rightmost position 
of storage last assigned; therefore it is also the position where the =t= (constant) 
is stored. 



Used with all types 



Math operators 



Size of operand 



Multiplication performed first 
Size of results 



Addresses limited to storage 
capacity 



Caution 



Address Adjustment of Operands 

Address adjustment is used to tell the processor to arithmetically adjust the ad- 
dresses in operands. It is permitted with all types of addresses: actual, symbolic, 
and asterisk, and is used to refer to a location that is a given number of positions 
away from a specific address. Use of this feature of the language reduces the num- 
ber of symbols necessary for a source program. 

By writing a + (plus sign) for addition, —(minus sign) for subtraction, and 
* (asterisk) for multiplication, immediately after the first or subsequent term of 
an operand ( an asterisk as a term of an operand does not represent multiplication 
but means the address of the instruction, as previously explained), the programmer 
indicates to the processor that the address is to be adjusted. * * * 

Arithmetically adjusted operands may take the form ofaA±B±C±D, 
where the terms A, B, C, and D may be numerical quantities. The number of terms 
in the operand is limited only by the size of the operand and remarks field. Thus 
the operand A + B * C — D may be further adjusted by writing after the last 
term another term, E, e.g., A + B*C — D + E. 

In arithmetically adjusted operands, the operation or operations of multi- 
plication are always performed first, followed by the addition and subtraction 
required to calculate the adjusted address. Intermediate results that are greater 
than 10 digits, or a final result (adjusted address) that is over 5 digits, cannot be 
calculated by the processor. 

For the 1620 with standard storage capacity (20,000 storage positions), ad- 
dresses that exceed 19999 are considered errors; however, they will not be de- 
tected as such. Therefore it is possible with a standard capacity machine to assemble 
an object program for a machine with 40,000 or 60,000 positions of storage. For 
machines that have 40,000 or 60,000 positions, the processor can be modified to 
use the additional storage to enlarge the size of the symbol table, as explained 
later. In that case, addresses that do not exceed 39999 or 59999, depending upon 
the storage capacity, are considered valid addresses. 

In using address adjustment, the programmer should be careful that insertions 
or deletions do not affect the adjusted address. For example, if a P operand in a 
branch (B) instruction refers to an address as * +48 (i.e., branch to the instruc- 
tion that follows the next three sequentially higher instructions), the programmer 
must ensure that no new instructions are introduced within the three instructions 
to make the * +48 incorrect. In this example the asterisk ( * ) is the leftmost 
position of the instruction itself. 

Examples 
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Adjusted 
Address 

01040 
00970 
01008 
03000 
04000 
00549 
00549 

02012 
12000 



Arilhmelic 

1000 - 40 
1000 - 30 
1000 + (2 x 4) 
1000 x 3 
1000 x 4 

500 * (20 X 3) - 11 
(100 X 5) * (20 X 3) - 
2000 t 12 
(2000 * 3) x 2 



Statement Writing IS 



The operands shown will produce the adjusted addresses, as indicated, provided 
the location 1000 has been assigned to the symbolic address alpha, the location 
4 has been assigned the symbolic address L, and the instruction location ( * ) is 
equivalent to 2000. 

In some instructions such as the branch instruction, the Q address is not used, 
although a zero ( 00000 ) address is generated. Thus the instruction uses 12 storage 
positions. By using an * address in the following statements 
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the instructions are condensed, to eliminate four positions of the unused (zero) 
Q address, and are stored as 



49136680161204570000 



whereas the statements 
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are stored as 



491366800000161204570000 



To conserve storage 



Indirect Addressing 



because the unused Q address is not eliminated. In the first example, only four 
positions of storage are saved; however, a considerable amount of storage can be 
saved in a program that contains many instructions where the Q or both the Q and 
P portions of instructions are unused. Because the * in the dorg statement (see 
control operations) refers to the rightmost position of storage last assigned (Q tl 
of the B instruction), * —3 is the address where the next instruction starts. 

By placing a minus sign in front of the first term of an operand, a flag ( minus 
sign) can be inserted over the units position of the adjusted address. This feature 
of address adjustment can be used for inserting flags required for Indirect Ad- 
dressing (special feature). However, an operand written as —0 (minus zero) does 
not insert the flag in the units position over the zero. When the minus sign is 
written in front of the first term in order to set a flag over the units position, other 
signs following the first term should be reversed so that the correct address is 
obtained. 
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Programming the 1620/1710 Using SPS 

This section describes in detail the various steps to be followed in writing a program 
for the 1620 or 1710 using sps. The material has been divided into three categories: 
Declarative Operations, Imperative Operations, and Control Operations. The im- 
perative operations that apply to the 1710 only are described under 1710 impera- 
tive OPERATIONS. 



Assign storage areas 



Not executed in object program 



Placement in source program 



Declarative codes 



Assigns numerical values 
to labels 



First operand defines length 



Declarative Operations 

In programming the 1620, all records and any other data that is to be processed 
by the program must be assigned storage areas. Normally, all records and data to 
be processed consist of fields of known length and arrangement. Unless otherwise 
specified, areas are automatically assigned core storage locations in the order in 
which they appear in the source statements. 

To assign addresses for instructions, constants, etc., the processor uses an 
address assignment counter. This counter is adjusted for each assignment made by 
the processor. If an address is assigned by the programmer, the counter is not 

adjusted. 

The declarative statements provide the object program with the input/output 
areas, work areas, and constants it requires to accomplish its assigned task. These 
statements do not produce instructions that are executed in the object program. 
The entries, ds, dss, das, and dsb assign storage. The entries, dc, dsc, dac, dsa, and 
dnb usually assign storage, and also produce, in the object program, both the 
machine address of the area assigned and the constants that are to be stored in 
this area. Constants are then loaded with the object program. 

Declarative statements may be entered at any point in the source program. 
However, these statements are normally placed by themselves, preferably at the 
beginning or end of the program - not within the instruction area. If not placed 
at the beginning or end, the programmer is required to branch around an area 
assigned to data so the program will not attempt to execute what is in a data area 

as an instruction. 

The declarative mnemonic operation codes and their description are as follows: 



Code 

DS 

DSS 

DAS 

DC 

DSC 

DAC 

DSA 

DSB 

DNB 



Description 

Define Symbol (Numerical) 
Define Special Symbol (Numerical) 
Define Alphameric Symbol 
Define Constant (Numerical) 
Define Special Constant (Numerical) 
Define Alphameric Constant 
Define Symbolic Address 
Define Symbolic Block 
Define Numerical Blank 



DS — Define Symbol (Numerical) 

A ds statement may be used to define symbols used in the source program (i.e., to 
assign storage addresses or values to symbolic addresses or labels) and to assign 
storage for input, output, or working areas. A ds statement does not cause any data 
to be loaded with the object program. 

The length of the field is defined by the first operand. This operand may be 
an absolute value or a symbolic name. If a symbolic name is used, the symbol must 
previously have been defined as an absolute value, that is, it must have appeared 
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Second operand specifies 
storage address 



Defines symbol without 
reserving storage 



Defines field length onh/ 



in the label field in a statement of the source program preceding the one in which 
it is used. Address adjustment may be used with this operand. 

The address in core storage of the field being defined may be assigned by the 
programmer or the programmer may let the processor assign the address. If the 
processor assigns the address, the statement is terminated after the first operand. 
If the programmer assigns the address, a second operand, which may be symbolic, 
asterisk, or actual, is used to establish the address of the field. Since data fields are 
addressed at their rightmost (low-order) digit the processor assigns this position 
as the address of the field. Address adjustment may be used with the second oper- 
and. If the second operand is symbolic, it also must previously have been defined. 
Addresses assigned by the programmer do not disrupt the sequence of addresses 
assigned by the processor. 

A ds statement may also be used to define a symbol, without assigning any 
storage, i.e., to define it as an absolute value. In this case, the first operand is 
omitted (or written as 0) and the second operand represents the value (may not 
exceed five digits in length). The second operand may be an actual value or a 
previously defined symbol. To define storage which will not be referred to sym- 
bolically, the label of the ds statement may be omitted. 

The following statements define the field length only. When remarks are 
added to the statement, the field length must be followed by two commas. 



DELTAX D.S 
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DS, 
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In the next example, the programmer assigns the address of the field and ex- 
cludes the field length (the first operand) from the statement because it is without 
significance, replacing it with a comma. The following statements cause the proces- 
sor to associate the address 12930 with the label sum: 
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Again, in this example, two commas are required when remarks form part of the 
statement. 

The following statement which is similar to the one previously given is assigned 
a value that is other than an address. 



Lobal Operation 



FA ,. 



D.S, , 



Operands & Remarks 



■ i l r Tn i F.IJ.LD .Lfi.Nfi.T.K .IIS.E.t). H Y .SIIBiiEP U.ENT. ,ST.AT.EMEN.TJilg . 



For defining input/output 
storage, numerical 



This statement defines the symbol fl as being equivalent to the value 17. Subse- 
quent uses of this symbol are permitted because the symbol has been defined. 

It should be noted that an area defined by the processor for a ds statement is 
always addressed at the rightmost position. However, to use this area for input/ 
output, the leftmost digit must be addressed. This is done by using a dss statement 
in place of a ds statement or by address adjustment with a ds statement, which 
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Defines input/output storage area 



Length automatically doubled 



Address always odd-numbered 



subtracts a number that is one less than the length of the area from the address 
of the area. In a previous example, where deltax was defined as having a held 
length of 7, the operand of another instruction that read numerical data into the 
deltax field was written as deltax— 6. 

DSS — Define Special Symbol (Numerical) 

The dss statement is similar to the ds statement with one exception: when the sec- 
ond operand is omitted, the processor assigns the leftmost position as the address 
of the field If a second operand is assigned by the programmer, this address is 
assumed to be equivalent to the leftmost position of the field. A dss statement is 
normally used to define a storage area for input/output. The data in such an area 
may be moved during execution of the object program by a transmit record instruc- 
tion which requires that an address assigned to an area must be that of the leftmost 
position. 

DAS — Define Alphameric Symbol 

The das statement is similar to the ds statement with two exceptions: 

1. The length specified by the first operand is automatically doubled by the 
processor to allow for alphameric data. Each alphameric character requires 
two storage positions. 

2. The address of the field, if generated by the processor, is the leftmost posi- 
tion of the field plus one. The position is always odd-numbered, as it must 
be with any alphameric field. 

The following example illustrates a das statement. 
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For defining input/output 
storage, alphameric 



Three operands 



Three commas 



This statement defines an area for input/output that can contain 30 alphameric 
characters. The processor assigns 60 positions in core storage to accommodate 
alphameric coding. The output listing indicates this by typing 30 when this state- 
ment is assembled and listed. The omission of the second operand causes the 
processor to assign an address. During internal transmission of a field which utilizes 
an input/output area that is defined with a das, the area must be addressed at its 
rightmost position. In the example, the address may be achieved through address 
adjustment, i.e., title +2*30— 2. 

DC — Define Constant (Numerical) 

The dc statement may be used to enter numerical constants into the object pro- 
gram, and, for ease of reference, to assign names to the constants. The label field 
contains the name by which the constant is known, dc statements consist of three 
operands. The first operand indicates the length of the constant field; the second, 
the actual constant; the third, the storage address of the constant. The third oper- 
and is not used when the programmer prefers to let the processor assign the storage 
address. The assigned address is the rightmost storage position of the constant. 
The leftmost storage position is the position over which the processor places a flag. 
Whenever remarks form part of a dc statement, three commas must be included 
in the statement. The first and third operands may be symbolic or actual. They are 
subject to address adjustment. A symbolic address must previously have been de- 
fined to be valid. 
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Length 



Constant 



Sign 
Flag 



If the first operand (length of constant) is smaller than the constant, an invalid 
condition results. If it is larger than the constant, zeros are inserted to the left of 
the constant so that the number of zeros plus the number of positions in the con- 
stant equals the length of the field (first operand). 

A constant that is a positive number will be stored in the form of an unsigned 
integer; a negative number, in the form of a signed integer. A negative number has 
the minus sign written in front of the constant as part of the second operand. Dur- 
ing assembly, a negative number produces a flag (minus sign) over the units posi- 
tion of the constant. 

If the constant 0100000 and -0004337769 are required, they may be defined 
as follows: 
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Record mark 



In both cases, constant 1 or constant 2, the length of field is greater than the con- 
stant, and the address of these constants is assigned by the processor. These con- 
stants will appear in the object program as 

0100000 

0004337769 

A record mark may be used in a constant but must be in the units position and 
must be written as the character @. The following example contains statements that: 

1 . Store a record mark by itself as a constant. 

2. Store a constant 6 and record mark. 

3. Store a minus 0773 and record mark. 
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These constants appear in the object program as: 

0773 4= 
A constant 7 with a flag (7) is generated by either of the following statements: 
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One-digit constant always A flag is always placed over a one-digit constant, regardless of the sign (positive 

flagged or negative). Therefore the programmer must use two positions to define a posi- 

tive one-digit constant. 
Maximum length constant Constants may not exceed 50 characters. The following statement generates 

a constant containing 50 zeros. 



lob.1 Opwuior Operand. Memo*. 



ZEftp, , D,C, 



5,0,0 8TPR.E F.lf.TY, ,Z,E,RQS 



To store a zero with a flag at location 401, the following statement can be used: 



i_i 



Lab«l Qperalicr 
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Operandi & Remorio 
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Because a label is not included in this statement, the actual address (401) must 
be used by any other instruction when referring to this constant. 

DSC — Define Special Constant (Numerical) 

The dsc statement is similar to the dc statement with two exceptions: 

1. When the third operand is omitted, the address assigned by the processor 
to the field is that of the leftmost position of the field. If the third operand 
is present, the address of the constant is assumed to be the leftmost position 
of the field, and the constant will be stored with its leftmost digit at this 
address when the object program is loaded. 

2. A flag is not placed in the leftmost position of the field. 

DAC — Define Alphameric Constant 

To define a constant consisting of alphameric data, the operation code dac is used. 
The dac statement is similar to the dc statement with three exceptions: 

1. The first operand (length) is automatically doubled by the processor to 
allow two storage positions for each alphameric character. 

2. The storage address of the constant is the address of the leftmost position 
plus one. This address must be an odd-numbered address to comply with 
the requirements for alphameric data storage. An odd-numbered address 
will automatically be assigned, if it is assigned by the processor. If it is speci- 
fied by the programmer (as in line 020 of the following example), the 
processor assigns the specified address and provides that the constant is 
stored beginning one position to the left of the specified address. In the 
latter case, the processor makes no test of whether or not the address is 
odd-numbered or whether the address (or the position to the left) has 
been previously assigned. 

3. High-order zeros are not automatically inserted in the constant by the 
processor, as is the case with a dc statement when the field length exceeds 
the number of characters. The number of characters including blank char- 
acters should not be greater or less than the specified length ( first operand ) . 
When the rightmost position or positions of the constant are blank char- 
acters, they should be followed by a comma or end-of-line character. For 
card input, the rightmost position must be followed by a comma or a record 
mark. 
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Note: Only dac and dnb instructions may be used to insert blank characters 
into storage. 



N,0,T,E,1 



DAC, 
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Operands & Remarks 
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Address adjustment 



Maximum, ten addresses 



Restrictions 



In the example shown: 

1. Statement 010 uses 34 storage positions to store the 17-position constant 
( deck 3478 punched ) . 

2. Statement 020 places 25 alphameric blanks into storage locations 900 
through 949. Also, a flag is set in location 900. 

3. Statement 030 records an alphameric record mark in storage. 

4. Statement 040 places a 30-position constant, including a record mark, in 
storage. The second comma in this statement is part of the constant and 
the fifth comma is part of the remarks. 

A 50-character alphameric constant (maximum allowable) occupies 100 posi- 
tions of storage. A flag is set over the leftmost position of the field. Addressing this 
constant for internal field transmission requires the address output +50 * 2—2, 
where output is the symbol ( label ) which represents the leftmost address plus one. 

DSA — Define Symbolic Address 

The dsa statement may be used to store a series of up to ten addresses as constants, 
as part of the object program. These addresses can be used for instruction modifi- 
cation or for setting up a table of addresses through which the programmer may 
index to modify a routine. 

Each entry (symbolic or actual) in the operands field, with the exception of 
the last entry, is followed by a comma. The equivalent machine address of each 
entry is stored as a 5-digit constant. The constants are stored adjacent to each other 
with a flag over the high-order position of each. The label field of this statement 
must contain the symbolic name by which the table of constants may be referred to. 
An address at which this table is stored in core storage may not be assigned by the 
programmer nor may any remarks be included in the dsa statement. The address 
assigned by the processor is the address at which the rightmost digit of the first 
constant will be located. 

Note: If the last operand is followed by a comma, an additional zero address 
( 00000 ) is assembled in the table. 

In the example that follows, symbols alpha, origin, and output are equivalent 
to address 1000, 600, and 15000, respectively. 



Line 
1 5 



Operation 



LAafiLE^asA 



Operandi & Remarks 



ALP,HA.OB,T.n.I,W,.,i.2.a ,4,. ,aiIT.P.I1.T.~s/l@ 
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The constants are stored as 



01000006000123414950 
t 



(01200) 
(01204) 



For storing numerical array 



Actual or symbolic 



If the leftmost digit of these four constants is located at 01200, then the address 
equivalent to table will be 01204, the location of the rightmost digit of alpha. 

DSB — Define Symbolic Block 

A dsb statement is used to define an area of storage for storing a numerical array. 
A dsb statement does not cause any data to be loaded with the object program. The 
label of this statement is converted to the address at which the first element of the 
array is stored (i.e., the rightmost position of the first element). The first operand 
indicates the size of each element; the second, the number of elements. 

Either or both operands may be symbolic or actual. If symbolic, the symbol 
must have been previously defined. A third operand is required if the programmer 
wishes to assign the address. For example, to store an array of 75 elements, each 
element containing 15 digits, the statement used would be: 



Operation 



Ait RAY, 



DSB. 



Operandi & Remark* 



1.5...7.5...1.5.14J 



Maximum, fifty blanks 



No flag in leftmost position 



Programmer provides flag or 
record mark 



In this example, the array begins at location 01500 (leftmost position of the first 
15-digit element), array is equivalent to 01514 (address of the first element). 

DNB — Define Numerical Blank 

A dnb statement is used to define a field of numerical blanks. (The 8-4 card code 
denotes a numerical blank. ) Up to fifty blanks may be specified in each dnb state- 
ment. In addition to a label, two operands can be assigned by the programmer. 
The first of these specifies the number of blank characters desired (field length) 
and the second, the rightmost address of the field where the blanks are stored in 
the object program. 

If the second operand is omitted and the statement is labeled, the address 
assigned to the label by the processor is the rightmost storage position of the blank 
field. The blank field does not contain a flag in its leftmost position. 

If the programmer wishes to move a blank field in core storage, he must either 
define a single-digit constant with flag bit in the position in front of the leftmost 
position of the blank field or a record mark in the position following the rightmost 
position of the blank field. 

If six numerical blanks are required, they may be defined as follows: 



Una 
i J 



BJaAj&SS DiiJL 



Dperatior 



Operandi & Remorlu 



The processor assigns the storage address of the six blank positions to the label 
blanks. In the example that follows, the programmer assigns the storage address 
as 01625. 
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Line 
J S 



Speraricn 



BLANKS 



Operands & Remarks 



D.N.B |6,. ,1,6,2,5,. .STORE, SIX, N.UM.F.H.T H.A. T. Br.A.Mifs(g) , 



Two commas required 



Location assignment counter 



In a dnb statement, two commas are required whenever remarks are included 
in the statement; the first after the length operand and the second after, or in place 
of, the address operand. 

Summary of Declarative Operations 

As stated earlier, areas being defined by the processor are assigned core storage 
locations in the order in which they are processed. To do this, the processor pro- 
gram uses a location assignment counter to keep track of the address of the last 
assigned storage location. Table 1 shows the amount added to the location assign- 
ment counter for each instruction and summarizes the coding and operation of 



Table 1. Summary of Declarative Operations 

Note: Except for the constants in DC, DSC, and DAC, all operands may be 

1. actual. 

2. symbolic. Symbols must be previously defined except in DSA. 

All operands may use address adjustment. Remarks may follow the other operands except in DSA 
T 



statements. 



DECLARATIVE 
STATEMENT FORMAT 



LABEL 



SYM 



SYM 



SYM 



SYM 



SYM 



SYM 



SYM 



SYM 



SYM 



OP 
CODE 



DS 



DSS 



DAS 



DC 



DSC 



DAC 



DSA 



DSB 



DNB 



OPERANDS 



L, A (g) 
L, A (i) 
L, A (£) 
L, C, A (g) 
L, C, A (£) 
L, C, A (g) 



D, E, F, G, 
H, I, J, K, 
L,M 

L, N, A (g) 
L,A (£) 



AMOUNT ADDED TO 
LOCATION ASSIGNMENT 
COUNTER IF ADDRESS 
(A) IS BLANK 



L (length) 
If L is blank, 
is added. 

L (length) 
If L is blank, 
is added. 

2 x L is added. If 
L is blank, is 
added. 

L is added. 



L is added. 



2 x L is added. 



5 x ( number of 
addresses) is 
added. 

Length of each element x 
number of elements is added. 

L is added. 



VALUE STORED IN 
SYMBOL TABLE AS 
EQUIVALENT TO 
"SYMBOL" 



A address. If A is blank, the field 
address from the location assign- 
ment counter is stored. 

A address. If A is blank, the numeri- 
cal record address from the location 
assignment counter is stored. 

A address must be odd. If A is blank, 
the alpha record address from the 
location assignment counter is stored. 

A address. If A is blank, the field 
address from the location assign- 
ment counter is stored. 

A address. If A is blank, the numeri- 
cal record address from the location 
assignment counter is stored. 

A address must be odd. If A is blank, 
the alpha record address from the 
location assignment counter is stored. 

Field address of the first address on 
list. 



A address. If A is blank, field address 
of the first element is stored. 

A address. If A is blank, the field 
address from the location assign- 
ment counter is stored. 



DATA FIELDS WHICH 

ARE LOADED AS A 

PART OF THE OBJECT 

PROGRAM 



None 



None 



None 



C, the ( numerical ) 
constant 

C, the ( numerical ) 
constant 



C, the ( alphameric ) 
constant 



A list of the actual ad- 
dresses that correspond 
to D, E, F, etc. 

None 



Number of blank char- 
acters that equal L. 
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Alpha record address 
Field address 
Numerical record address 



each declarative operation. "Alpha Record Address" in the table refers to the left- 
most position plus one of an alphameric field, whereas "Field Address" refers to the 
rightmost position of a field. The term "Numerical Record Address" refers to the 
leftmost position of a field. 



Summary of statement writing 
rules 



Imperative Operations 

This section describes the operations (instructions) written in symbolic language 
that are translated by the prbcessor into 1620 machine language. The function of 
each machine language operation code is discussed in the 1620 Reference Manual 
( Form A26-4500) and the 1710 Reference Manual ( Form A26-5601 ) . 
Imperative operations may be divided into five classes: 

1. Arithmetic 

2. Internal data transmission 

3. Branch 

4. Input/Output 

5. Miscellaneous 

In this section are presented thirty-two standard 1620 instructions and fifteen 
special feature instructions that compose the imperative operations. For each class, 
a listing of the instructions shows the actual operation code, the mnemonic repre- 
sentation for sps, the P and Q address requirements and function, and the addresses 
that can be modified using Indirect Addressing (special feature). The flag indi- 
cator operand can be used to insert a flag over the units position of an address 
(P or Q) when this special feature is used. 

As stated earlier concerning coding sheet fields: 

1. Any instruction in the source program may be labeled. 

2. Mnemonic or actual operation codes must be recorded for each statement. 

3. For each instruction, up to four items can be entered in the operand and 
remarks field: P operand, Q operand, flag indicator operand, and remarks. 

4. Commas must separate these items or be used in place of omitted items. 

5. Statements written for the card processor do not require an end-of-line 
character (g) . 

6. Operands may be symbolic or actual, and are subject to address adjustment. 
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Arithmetic Instructions 



Listed in Table 2 



Table 2 lists arithmetic instructions, eight of which are special feature instructions. 
Each instruction shown must have both a P and a Q address. Note that immediate- 
type arithmetic instructions have only a Q part and are not subject to Indirect 
Addressing ( special feature ) . 



Table 2. Arithmetic Instructions 

Note: Indirect Addressing (special feature) is allowable with all P address operands listed below. An X to the right of the O operand 
indicates that this feature may be used with it. 



OPERATION 


OPERATIC 


N CODE 


OPERANDS ] 


MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Add 


A 


21 


Storage address of units position of 
augend 


Storage address of units position of X 
addend 


Add Im- 
mediate 


AM 


11 


Same as code 21 


Qn of instruction is units position of 
addend 


Subtract 


S 


22 


Storage address of units position of 
minuend 


Storage address of units position of X 
subtrahend 


Subtract 
Immediate 


SM 


12 


Same as code 22 


Qn of instruction is units position of 
subtrahend 


Multiply 


M 


23 


Storage address of units position of 
multiplicand 


Storage address of units position of X 
multiplier 


Multiply 
Immediate 


MM 


13 


Same as code 23 


Qn of instruction is units position of 
multiplier 


Load Dividend 
( special 
feature ) 


LD 


28 


Storage address in product area to 
which units position of field (divi- 
dend ) is to be transmitted 


Storage address of units position of X 
dividend 


Load Dividend 
Immediate 
(special 
feature ) 


LDM 


18 


Same as code 28 


Qn of instruction is units position of 
dividend 


Divide (special 
feature ) 


D 


29 


Storage address at which first sub- 
traction of the divisor occurs 


Storage address of units position of X 
divisor 


Divide 
Immediate 
( special 
feature ) 


DM 


19 


Same as code 29 


Qn of instruction is units position of 
divisor 


Floating 
Add (special 
feature ) 


FADD 


01 


Storage address of units position of 
exponent of augend 


Storage address of units position of X 
exponent of addend 


Floating 
Subtract 
( special 


FSUB 


02 


Storage address of units position of 
exponent of minuend 


Storage address of units position of X 
exponent of subtrahend 


feature) 










Floating 
Multiply 
( special 


FMUL 


03 


Storage address of units position of 
exponent of multiplicand 


Storage address of units position of X 
exponent of multiplier 


feature ) 










Floating 
Divide 
( special 


FDIV 


09 


Storage address of units position of 
exponent of dividend 


Storage address of units position of X 
exponent of divisor. 


feature) 
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Examples 



Lin* 
1 S 



Jli 



I I 
o.i.o 



hill 



Optrotior 



m 



&u 



La 



C,QS,T„.L,A, 



COST,. .LARaB..,. ADD, .LABOR, A.MQU.NJ , ,T,Q, ,GO,SJ, 



Operandi & RemeHu 



ACC.UMU.LA.T 



!iTORE.+,4..,2,.,l,0fl 



IIJ>,,O,5..,l,0,.H A,L,F,-AJ)J,P,S,T. ,P,Q,S ,1 .T ,1 V ,E, AMP, 



9,7,.DDMDia 



B.6,.D,VK(g 



PA® 



Listed in Table 3 



These statements cause the following operations to be performed: 
Line 010 — Add labor amount to cost amount. 

020 — Same as line 010 except three commas 

are required for remarks. 
030 - Subtract a constant 02 from the field 

located at store plus 4. 
040 — Add a constant 05 to the field at storage 

location 00088. 
050 — Move ddnd ( dividend) to the product 

area ( storage location 00097 ) . 
060 — Divide the dividend by successive subtractions 

of the dvr ( divisor ) , starting in storage location 00086. 

Internal Data Transmission Instructions 

Internal data transmission instructions require both P and Q addresses. The five 
internal data transmission instructions that are not standard on the 1620 are: Trans- 
fer Numerical Strip (tns), Transfer Numerical Fill (tnf), Floating Shift Right 
(fsr), Floating Shift Left (fsl), and Transmit Floating Fields (tfl). Table 3 
lists the Internal Data Transmission instructions. 



Examples 



Lint 


Lobtl 


Dptration 


Operandi & RemoHn 
it » » » is « *i » a a a n n 






T,D, , 


FIE.LH.D.I.G.I.Ti§. 


. 








' I • 1 . 1 1 1 i 1 l 1 1 i i 1 1 1 1 1 1 1 L 1 i 1 1 > 1 1 1 1 1 1 









T,DM 


Fl E ,LD.. .3$ i .. i i i . i i i i i i i l i j-l-l 


. i . i . . ■ ■ 
















T,F, , 


L<STORE..,RAT.Rl MO.VE RA.T.E. ,1 .T.O. .F.I.E.LD. CA.LLED. SIOH£§ . . . 












, 






T.FM 


STOREl ,3.5.2.5.., ..MO,V.E, £.O.N.ST.A,N,T. ,0.3,5.2.5, ,T,C\ .T.nr.A,T.m.N, £ALL£.D. 


^ftRE-g - . 










, , , 






T.FM 


*.-,l,1...4,l,.,1.0..C,HAJIfi£. ,PHE.V.I,0,US. ,QP. .GO.DK .T.Q MDPtt^ 


. . ■ i i • i . 










i.i.i.ii 






T.N.S, 


A. ,R , .CQMVERT .F.I.E.LD A ,T.O. ,KIIM.E,RIC.A.L COD.ING$ ......... 













1 * ■ * ■ ■ ■ ■ 








CD CONVERT .EI.E.LD JX .TO. ALPHAMERIC, JCDD.IN.G©' 







i i i i 









These statements cause the following instructions to be executed: 
Line 010 — A numerical digit at the location called digit is 
moved to the location called field. 
020 — A digit 3 is moved to the location called field. 
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030 — Rate 1 is moved to the field called store. 

040 — A constant 3525 is moved to the location called store. 

050 — A constant 41 is moved to O and 1 positions 

of the preceding instruction in the object program. 
060 — Field A is moved to field B and converted from 

alphameric coding ( 2 digits per character ) to 

numerical coding ( 1 digit per character ) . 
070 — Field D is moved to field C and converted from 

numerical coding to alphameric coding. 



Note: Indirect 
operand 



Table 3. Internal Data Transmission Instructions 

Addressing (special feature) is allowable with all P address operands listed below. An X to the right of the Q address 
indicates that this feature may be used with it. 



OPERATION 



Transmit 
Digit 

Transmit 

Digit 

Immediate 

Transmit 
Field 

Transmit 

Field 

Immediate 

Transmit 
Record 

Transfer 
Numerical 
Strip ( special 
feature ) 

Transfer 
Numerical 
Fill (special 
feature ) 

Floating Shift 
Right (special 

feature ) 

Floating 
Shift Left 
( special 
feature ) 

Transmit 
Floating 
( special 
feature ) 



OPERATION CODES 



MNEMONIC 



TD 



TDM 



TF 



TFM 



TR 



TNS 



TNF 



FSR 



FSL 



TFL 



ACTUAL 



25 
15 

26 
16 

31 

72 

73 

08 
05 

06 



OPERANDS 



P ADDRESS 



Storage address to which single digit 
is transmitted 

Same as code 25 



Storage address to which units posi- 
tion of field is transmitted 

Same as code 26 



Storage address to which high-order 
position of record is transmitted 

Storage address of rightmost position 
of alphameric field to be transmitted 



Storage address of rightmost position 
of alphameric field 



Storage address to which units ( right- 
most ) digit of mantissa is transmitted 

Storage address to which high-order 
digit of the mantissa is transmitted 



Storage address to which units posi- 
tion of exponent is transmitted 



Q ADDRESS 



Storage address of single digit to be X 
transmitted 

Qn of instruction is the single digit to 
be transmitted 



Storage address of units position of X 
field to be transmitted 

Qn of instruction is the units position 
of the field to be transmitted 



Storage address of high-order position X 
of the record to be transmitted 

Storage address of the units position X 
of the numerical field 



Storage address of the units position 
of the numerical field to be transmit- 
ted 



Storage address (rightmost) digit of X 
mantissa to be transmitted 



Storage address of low-order digit of X 
mantissa to be transmitted 



Storage address of units position of X 
exponent of field to be transmitted 



Listed in Table 4 



Branch Instructions 

Table 4 lists the branch instructions. Note that both the bi (Branch Indicator) and 
bni (Branch No Indicator) instructions require one of the fourteen switch or indi- 
cator codes listed in Table 5 as a Q address. The code indicates the switch or indi- 



28 



cator to be interrogated for status. To relieve the programmer of having to code a 
Q address, thirteen unique mnemonics that represent ten of the possible fifteen 
codes are included in sps language for both bi- and BNi-type instructions. For a 
unique mnemonic, the processor generates the actual machine language code 46 
( Branch Indicator ) or 47 ( Branch No Indicator ) and the Q address that represents 
the switch or indicator. 

Table 4. Logic (Branch and Compare) Instructions. 

Note: Indirect Addressing (special feature) is allowable with all P address operands listed below except Branch Back. An X to the 
right of the Q address operand indicates that this feature may be used with it. 



OPERATION 


OPERATION 


CODES 


OPERANDS 


MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Compare 


C 


24 


Storage address of units position of the 
field to which another field is com- 
pared 


Storage address of units position of the X 
field to be compared with the field at 
the P address 


Compare 
Immediate 


CM 


14 


Same as code 24 


Qn of instruction is units position of 
the field to be compared with the field 
at the P address 


Branch 


B 


49 


Storage address of the leftmost digit 
of the next instruction to be executed 


Not used 


Branch No 
Flag 


BNF 


44 


Storage address of the leftmost digit 
of next instruction to be executed if 
branch occurs 


Storage address to be interrogated for X 
presence of a flag bit 


Branch No 
Record Mark 


BNR 


45 


Same as code 44 


Storage address to be interrogated for X 
presence of a record mark character 


Branch on 
Digit 


BD 


43 


Same as code 44 


Storage address to be interrogated for X 
a digit other than zero 


Branch 
Indicator 


BI 


46 


Storage address of leftmost position of 
next instruction to be executed if indi- 
cator tested is on 


Q» and Q 3 of instruction specify the 
program switch or indicator to be in- 
terrogated (see Table 5) 


Unique Branch 
Indicator 










mnemonics : 










Branch High 


BH 


None 


Same as code 46 


None required 


Branch 


BP 


None 


Same as code 46 


None required 


Positive 










Branch Equal 


BE 


None 


Same as code 46 


None required 


Branch Zero 


BZ 


None 


Same as code 46 


None required 


Branch Over- 


BV 


None 


Same as code 46 


None required 


flow 










Branch Any 
Data Check 


BA 


None 


Same as code 46 


None required 


Branch Not 


BNL 


None 


Same as code 46 


None required 


Low 










Branch Not 


BNN 


None 


Same as code 46 


None required 


Negative 










Branch Con- 


BC1 


None 


Same as code 46 


None required 


sole Switch 1 
on 










Branch Con- 


BC2 


None 


Same as code 46 


None required 


sole Switch 2 










on 
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Table 4. Logic (Branch and Compare) Instructions (Contd.) 



OPERATION 


OPERATION CODES 


OPERANDS 


MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Branch Con- 
sole Switch 3 


BC3 


None 


Same as code 46 


None required 


on 










Branch Con- 
sole Switch 4 
on 


BC4 


None 


Same as code 46 


None required 


Branch Last 
Card (special 
feature ) 


BLC 


None 


Same as code 46 


None required 


Branch Expon- 
ent Check 
( special 
feature ) 


BXV 


None 


Same as code 46 


None required 


Branch No 
Indicator 


BNI 


47 


Storage address of leftmost position of 
next instruction to be executed if indi- 
cator tested is off 


Q* and Q„ of instruction specify pro- 
gram switch or indicator to be inter- 
rogated ( see Table 5 ) 


Unique Branch 
No Indicator 










mnemonics : 










Branch Not 
High 


BNH 


None 


Same as code 47 


None required 


Branch Not 
Positive 


BNP 


None 


Same as code 47 


None required 


Branch Not 
Equal 


BNE 


None 


Same as code 47 


None required 


Branch Not 
Zero 


BNZ 


None 


Same as code 47 


None required 


Branch No 
Overflow 


BNV 


None 


Same as code 47 


None required 


Branch Not 
Any Data 
Check 


BNA 


None 


Same as code 47 


None required 


Branch Low 


BL 


None 


Same as code 47 


None required 


Branch 
Negative 


BN 


None 


Same as code 47 


None required 


Branch Con- 
sole Switch 1 
off 


BNC1 


None 


Same as code 47 


None required 


Branch Con- 
sole Switch 2 
off 


BNC2 


None 


Same as code 47 


None required 


Branch Con- 
sole Switch 3 
off 


BNC3 


None 


Same as code 47 


None required 


Branch Con- 
sole Switch 4 
off 


BNC4 


None 


Same as code 47 


None required 


Branch Not 
Last Card 
( special 
feature ) 


BNLC 


None 


Same as code 47 


None required 
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Table 4. Logic (Branch and Compare) Instructions (Contd.) 



OPERATION 



Branch Not 
Exponent 
Check (spe- 
cial feature) 



Branch and 
Transmit 



Branch and 

Transmit 

Immediate 

Branch Back 

Branch and 

Transmit 

Floating 



OPERATION CODES 



MNEMONIC 



BNXV 



BT 



BTM 

BB 
BTFL 



ACTUAL 



None 



27 



17 

42 
07 



OPERANDS 



P ADDRESS 



Same as code 47 



P address minus one is the storage ad- 
dress to which the units position of the 
Q field is transmitted. P address is left- 
most digit of the next instruction to be 
executed 

Same as code 27 



Not used 

P address minus one is the storage ad- 
dress to which the units position of the 
exponent portion of the Q field is trans- 
mitted. P is the storage address of the 
leftmost digit of the next instruction to 
be executed 



Q ADDRESS 



None required 



Storage address of units position of 
the field to be transmitted 



Q11 of instruction is units position of 
field to be transmitted 



Not used 

Storage address of units position of 
exponent of field to be transmitted 



X 



Table 5. Switch and Indicator Codes Used as Actual Q 
Addresses in BI and BNI Instructions. 



Note: The additional codes for the 1710 only are shown in Table 10. 




Q 


ADDRESS 


SWITCH OR INDICATOR 


Q, 


0- 


Q„ 


Q,„ 


Q» 


Program Switch 1 


X 





1 


Y 


Z 


X 





2 


Y 


Z 


Program Switch 2 


X 





3 


Y 


z 


Program Switch 3 


X 





4 


Y 


z 


Program Switch 4 


X 





6 


Y 


z 


Read Check Indicator* 


X 





7 


Y 


z 


Write Check Indicator* 


X 





9 


Y 


z 


Last Card Indicator (special feature) 


X 




1 


Y 


z 


High/Positive Indicator 


X 




2 


Y 


z 


Equal/Zero Indicator 


X 




3 


Y 


- z 


High/Positive or Equal/Zero Indicator 


X 




4 


Y 


z 


Overflow Check Indicator 


X 




5 


Y 


z 


Exponent Check Indicator 


X 




6 


Y 


z 


MBR-Even Check Indicator* 


X 




7 


Y 


z 


MBR-Odd Check Indicator* 


X 




9 


Y 


z 


Any Data Check 



X indicates any digit value or blank is permissible. 

Y indicates any digit value is permissible. 

Z indicates any digit value or blank is permissible for 1620 but digits zero and one must be 

excluded for 1710. 
* indicates the Any Data Check indicator ( 19 ) also is on when this indicator is on. 
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Examples 



Line 

A. s 


Label 
4 1 


Operation 

II 15 


Operands & Remarks 


0.1,0 






Q , , 


B -A COMPARE, .F.IE.LP, A. .WITH FIELD B© . 


. . 






1 1 1 


,11,., 


, , , , 


0.3,0 






R , , 


STAR.T.. , 


,. .BRANCH .TIN,r.nNDI,T,IO.NA,L,L,Y. ,TO .IN.S.T. ^ABEIED, ,S,TAR.T1§ 


, , 






i i I 


1 1 1 1 1 1 




0.3.0 






BI, . 


START, ,, 


,0,0,,,. IF, PROGRAM, ,S,W1, ,OM„ , .BRANCH. XD, .START® 


. . 






i i , 


| | i i i i 




.jiiO 






BC1, 


START.., 


...SAME, AS. .I..I.N.E. n.3fl© 


, , 






t i i 


1 




.9.5,0 






man 


SiTiAiRiT.ti 


3,*, 1,2,. .,,,,IF. ,P,n.T!, .R1V.1, .K.O.T, ON., ,BR .T,0, .START, PADS. ,3. ,IM,S,TS© , , 


• L *J) 






, , 


' i i i i i 








flfl , 


© 

















These statements cause the following operations to be performed in the object 
program, as follows: 

Line 010 — Compare field A with field B. 

020 — Branch to an instruction labeled start. 
030 - If program switch 1 is on, branch to the 

instruction labeled start. 
040 — Same as line 030 with the exception that the 
unique mnemonic operation code used 
does not require a Q address. 
050 — If program switch 1 is not on, branch to the 

third instruction following the one labeled start. 
060 — Branch unconditionally to an instruction whose 
address is saved in IR-2 or PR-1. 



Listed in Table 8 



Input and Output Instructions 

The Q operand of input and output instructions is used to specify the input/output 
device. Table 6 shows the five different input/output device codes that can be 
used as the Q address. For programming ease, sps language includes unique 
mnemonic operation codes that can be used without a Q operand. 



Table 6. Input and Output Device Codes Used as Actual Q Addresses 
with RN, WN, DN, RA, and WA Instructions. 





Q 


ADDRESS 




DEVICE 


Q- 


Q. 


q. 


Qio 


Q» 


Typewriter 


X 





l 


Y 


Y 


X 





2 


Y 


Y 


Paper Tape Punch 


X 





3 


Y 


Y 


Paper Tape Reader 


X 





4 


Y 


Y 


Card Punch 


X 





5 


Y 


Y 


Card Reader 



X indicates any digit value or blank is permissible. 
Y indicates any digit value is permissible. 



Table 7 provides the Q address for a K instruction (control operation). This 
address, in addition to specifying the output device (typewriter), specifies type- 
writer action: space, return carriage, or tabulate. 
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Table 7. Typewriter Control Codes Used as Actual Q 
Address for a K instruction. 





Q 


ADDRESS 




ACTION INITIATED 


Q, 


Q» 


Q. 


Q.o 


Q» 


Space 

Return Carriage 

Tabulate 


X 
X 
X 








l 
l 

l 


Y 
Y 
Y 


1 
2 
8 



X indicates any digit value or blank is permissible. 
Y indicates any digit value is permissible. 

Table 8 lists the five actual and mnemonic input and output operation codes 
and the thirty associated unique mnemonics. When a unique mnemonic is used, the 
processor generates the Q address of the assembled instruction. 



Examples 





















Line le 


bel Operator 


Operands S> Remorb 
UMMMSS40 «»»«**. » 2 




. , , WA , 


O.U,T,P.HT„ 1 1.0.0.® 


i™J_J^ ' ■ i 






. , , 





■ •iiii. 

















. . , 










, , , WATi 


(MJ.T.P.UT.. Pl . r .SAME 


.AS, ,LIKJ5. .O.l.Ofgk . . 


II _l_l__f__i 






. I . 


I i ■ ■ 1 1 i. 













till. 






. i . 




'■■''■■ 


3 


■ . ■ K. ■ i 


. .1,0.1.... SAME . AS 


L.I HE, ,0.4.0® 





























( i.J_ 


i ■ . . ■ I . 




0.4.0 . I 


. . , spry 


§itiiiiiii'i 


LJ .1 1 i l 1 1 1 '■■■' 1 1 1 1 1 


. . . . . 






1 ■ ■ 


'■■■''■■ 





These statements cause the following operations to be performed in the object 
program, as follows: 

Line 010 — Type out alphameric data from a storage 
location called output. 
020 — Same as line 010; however, a unique mnemonic 

is used. 
030 — Single space on the typewriter. 
040 — Same as line 030; however, a unique mnemonic is used. 
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Table 8. Input and Output Instructions 

Not*: Indirect Addressing (special feature) is allowable with all P address operands, where a P operand is required. None of the 
operands shown may be used with Indirect Addressing. 



OPERATION 


OPERATION CODE 


OPERANDS 


MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Read Numeri- 
cally 

Unique Read 
Numerically 
mnemonics : 


RN 


36 


Storage address at which leftmost 
(first) numerical character is stored 


Q» and Q, instructions specify input 
device (see Table 6 ) 


Read Numer- 
ically Type- 
writer 


RNTY 


None 


Same as code 36 


None required 


Read Numeri- 
cally Paper 
Tape 


RNPT 


None 


Same as code 36 


None required 


Read Numeri- 
cally Card 
( special 
feature ) 


RNCD 


None 


Same as code 36 


None required 


Write Numeri- 
cally 

Unique Write 
Numerically 
mnemonics : 


WN 


38 


Storage address from which leftmost 
(first) numerical character is written 


Q« and Q» of instruction specify output 
device (see Table 6) 


Write Numeri- 
cally Type- 
writer 


WNTY 


None 


Same as code 38 


None required 


Write Numeri- 
cally Paper 
Tape 


WNPT 


None 


Same as code 38 


None required 


Write Numeri- 
cally Card 
( special 
feature ) 


WNCD 


None 


Same as code 38 


None required 


Dump Numeri- 
cally 


DN 


35 


Same as code 38 


Same as code 38 


Unique Dump 
Numerically 
mnemonics : 










Dump 

Numerically 

Typewriter 


DNTY 


None 


Same as code 38 


None required 


Dump 
Numerically 
Paper- Tape 


DNPT 


None 


Same as code 38 


None required 


Dump 
Numerically 
Card (special 

feature ) | 


DNCD 


None 


Same as code 38 


None required 
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Table 8. Input and Output Instructions (Contd.) 



OPERATION 



Read Alpha- 
merically 



Unique Read 
Alphamerically 
mnemonics : 

Read Alpha- 
merically 
Typewriter 

Read Alpha- 
merically 
Paper Tape 

Read Alpha- 
merically Card 
( special 
feature ) 



OPERATION CODES 



MNEMONIC ACTUAL 



Write Alpha- 
merically 



Unique Write 

Alphamerically 

mnemonics: 

Write Alpha- 
merically 
Typewriter 

Write Alpha- 
merically 
Paper Tape 

Write Alpha- 
merically 
Card (spe- 
cial feature ) 



Control 



Unique Control 
mnemonics : 

Tabulate 
Typewriter 

Return 

Carriage 

Typewriter 

Space 
Typewriter 



RA 



RATY 



RAPT 



RACD 



WA 



WATY 



WAPT 



WACD 



TBTY 
RCTY 

SPTY 



37 



None 



None 



None 



39 



None 



None 



None 
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None 
None 

None 



OPERANDS 



P ADDRESS 



Storage addresses at which numerical 
digit of leftmost (first) character is 
stored. (Zone digit of first character 
is at P minus one ) 



Same as code 37 



Same as code 37 



Same as code 37 



Storage address of numerical digit of 
leftmost (first) character to be writ- 
ten. ( Zone digit of first character is at 
P minus one ) 



Same as code 39 



Same as code 39 



Same as code 39 



Not used 



Not used 
Not used 

Not used 



Q ADDRESS 



Q 8 and C> of instruction specify input 
device ( see Table 6 ) 



None required 
None required 
None required 



Q« and Q„ of instructions specify out- 
put device ( see Table 6 ) 



None required 
None required 
None required 



Q» and Q,, specify Input/Output de- 
vice. Qh specifies control functions 
( see Table 7 ) 



None required 
None required 



None required 
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Listed in Table 9 



Miscellaneous Instructions 

Five instructions are included in this group; one of these is a special feature, Move 
Flag ( mf ) . Table 9 lists the uses of P and Q addresses in miscellaneous instructions. 



Table 9. Miscellaneous Instructions 

Note: Indirect Addressing (special feature) is allowable with all P or Q address operands that are marked with an X. 



OPERATION 



Set Flag 

Clear Flag 

Move Flag 
( special 
feature ) 

Halt 

No Operation 



OPERATION CODE 



MNEMONIC 



SF 
CF 
MF 

H 
NOP 



ACTUAL 



32 
33 
71 

48 
41 



OPERANDS 



P ADDRESS 



Storage address at which flag X 
bit is placed 

Storage address from which X 
flag bit is cleared 

Storage address to which flag X 
bit is moved 



Not used 
Not used 



Q ADDRESS 



Not used 
Not used 
Storage address of flag bit to be moved X 

Not used 
Not used 



Examples 



Line 
2 s. 



Operoti 

J! IS 



CJ^ 



D.D.Tf.IIT- S<g 



M,F, 



H, , 



J N,0,P, 



Operandi & networks 



35,2,. ,1,6,9.4., , 



MO.V.E 



■ HA.I..T, ,1 / 



.H,E, FLAG 



FBP M, ,I.O.C,AT,IO,N 



■its* 



1 ' ' ' I I 1 I I 



/TO. ■LaCA.TJO.W. 



■ 



A&i 



These statements cause four different operations to be performed in the object 
program, as follows: ' 

Line 010 - Clear a flag at the storage location, output minus 5. 

020 - Move a flag from storage location 1694 to storage location 352. 
030 — Cause the program to halt. 

040 - Perform no operation but proceed to the next sequential 
instruction. 



Orders to the processor 



Control Operations 

The sps language includes the following six control operations: 

Define Origin 

Define End 

Special End 

Heading 

Transfer Control and Load 



DORG 

DEND 

SEND 

HEAD 

TCD 

TRA 



Transfer to Return Address 



These operation codes are orders to the processor that give the programmer con- 
trol over portions of the assembly process. Specifically, dorc gives the programmer 



36 



None labeled 



control over the placement of his program in storage, dend, tcd, and tra order 
the processor to produce unconditional branches to locations specified by the pro- 
grammer, head assigns unique characters to labels or symbols used within a source 
program. 

With the exception of the tra and dorg, none of the above operations may be 

labeled. 



Overrides automatic storage 
assignment 



DORG — Define ORiGin 

The dorg statement instructs the processor to override its automatic assignment 
of storage and to begin the assignment of succeeding entries at the particular 
location specified by the programmer. In this way the programmer is able to control 
assignment of storage to instructions, constants, and data. If a define origin state- 
ment is not the first entry in a source program, the processor begins the assignment 
of storage at location 402. 

A define origin statement is coded as follows: 



Label Operation 



QQfiC 7,8,2 



Operands & Remark* 



Resets location assignment 
counter 



Overlapping in storage 
Pre-empted storage area 



This statement directs the processor to reset its location assignment counter to the 
particular address specified in the operand (actual or symbolic), and this causes 
the assignment of succeeding entries to begin at this address. When an actual 
address is entered by the programmer, care must be taken to avoid inadvertent 
overlapping with areas assigned by the processor. 

If the operand is left blank, assignment of storage starts with 00000 address. 
Since the arithmetic tables are stored in locations 00100 through 00401, constants 
and instructions cannot occupy these storage locations. 

If a symbolic address is entered, it must appear as a label earlier in the pro- 
gram sequence. An * address refers to the current contents of the location assign- 
ment counter. A define origin statement can take any of the following individual 
forms: 



Line 
1 5 



fl, I ,0 
3, 3 .0 
.3 i D 



JR.IG.INDPRG 



TBir.TJinnRG, 



DQHCX.Y.2;® , 



Operandi & Remarks 



XY,Z+,5,0q 



*.*. .1fl,.,TX>,r VA,T.TO,N A. 



asir.HMMT 



milNTKR . PLUS, ,5,0lg 



Examples 



Last statement 



If xyz (label) is previously defined as 1002, the first entry directs the processor to 
begin the assignment of succeeding entries at location 1002. The second entry 
directs the processor to begin the assignment of succeeding entries at the location 
that has been assigned to the symbol xyz plus 50. The symbol origin can be used 
at any point in the program to refer to that address. The third entry directs the 
processor to begin the assignment of succeeding entries at the address specified 
by the current contents of the location assignment counter plus 50. A comma must 
follow the operand when remarks are included in a dorg statement. 

DEND — Define END 

The dend statement is the last statement entered in the source program; it instructs 
the processor that all statements of the source program have been processed. A dend 
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Halts after loading 



statement may also be used to cause execution of the object program to begin 
immediately after it has been loaded. To do this, the dend statement requires the 
presence of an operand representing the starting address of the program. The 
operand may be actual or symbolic. The 1620 will halt at the completion of loading 
of the object program, and execution then will begin at the address corresponding 
to the starting address, upon depression of the start key. If the operand specifying 
the starting address is omitted, the program will halt and the operator will have 
to start the program manually. 

The following statements illustrate both types of entries. 



Line 



Label Dperofion 



HEJiI(§L 



D,E,Kt 



Operands & Remark* 



S,T,A,B,T,® , 



Halts tape processor 



No operands 



The program is halted after loading by either statement. In the second case, execu- 
tion begins at the address corresponding to start, upon depression of the start 
key. 

When a dend statement includes comments but no operand, the operand must 
be replaced by a comma. 

SEND — Special END 

A send statement is provided to halt the tape processor on both passes of the source 
program. If a send statement is encountered by the card processor, the card proces- 
sor will not be halted. This statement does not produce any output in the object 
program. 

The send statement is used: 

1. To halt the processor after one tape of a source program is processed and 
to allow the remainder of the source program from another tape to be 
threaded and then processed. 

2. To halt the processor so that program switch settings may be changed and 
processing resumed. 

The send statement takes the following form and requires no operands. 



Operation 



SE,N,r g) 



Operandi & Remorlci 



Example 



Useful with long source program 



When this statement in the source program is encountered by the processor, the 
program halts and the message "LOAD NEXT TAPE" is typed. The operator 
threads the next tape or changes switch settings or both, and then depresses the 
start key. 

If the first part of the source program is entered from the typewriter, program 
switch 1 will be off and the statements will be entered one at a time. When the 
send statement is entered, the processor halts. The operator may then turn on 
program switch 1, thread the source program tape, and continue processing the 
source program, send is especially useful where a long source program is punched 
in tape and certain addresses associated with labels being defined by that tape 
must be changed. For example, the following statements, part of source program A, 
may require that addresses 01000 and 02000 be changed to 01250 and 02500, 
respectively. 
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Line 
3 5 



Operation 
17 IS 



;pjjypt D3 



S P.IP.I.T Dg 



Operands & Remarks 



,0,1,0,0,0,0 



,0,2,0,0,00 



To change these addresses, the operator will enter the following statements at 
the typewriter 



B, I .P 

0.1,0 



Operation 



Cp.N.T.R.I D.S, 



NPJGJT 



D,S, 



S£££|. 



Optrandt & Remark* 



,0.1,2,S.0fi 



, ,0,2,5,0.00 



■ ■ ■ ' ■ 



SEND vs. DEND 



For combining independently 
written programs 



Avoids duplicate symbols 



and follow them by source program A. The first time labels contrl and ndigit 
are encountered by the processor, they are assigned addresses; the second time 
they are encountered, no addresses are assigned but an error message is typed. 
In this case, the operator can ignore the error message. 

In some cases, the programmer may choose to end a source program with a 
send statement rather than a dend statement. This situation allows the programmer 
to enter additional statements, either additional declarative statements or correc- 
tions to imperative statements. However the last additional statement entered must 
be a dend statement. 

HEAD — HEADing 

It is frequently convenient, and sometimes necessary, to write a source program 
piecemeal, and to assemble these pieces into the total program. Parts of the pro- 
gram may be written by different programmers, or by the same programmer at 
different times with considerable time lapses between. 

Suppose, in such a situation, that a program block, say Bi, has been written; 
that another program block, B 2 , is in the course of being written; and that B t and 
B 2 eventually are to be joined to compose a single program. Certain symbols may 
already have been used in writing block B u and certain symbols, varying from the 
symbols used in B 1; may be used in writing block B 2 . To avoid duplication of sym- 
bols in each block, the programmer writing block B 2 must be concerned with the 
symbols used in Bj. 

Symbols used in block B 2 can duplicate those in Bi, provided they are less than 
six characters in length and have been prefaced by a head statement. The pro- 
grammer can completely ignore the symbols in Bi by prefacing B 2 with the follow- 
ing control statements : 



H.EAI X.® 



Operandi & Remark, 



Adds unique character to label 



Generates no instructions or data 



where the single character X may be any one of the characters A to Z, to 9, or 
blank. 

The control instruction, head x, generates no instructions or data in the object 
program. When the processor encounters a head statement, it treats the symbols 
in the label or operands fields of the following statements, provided the symbols 
are less than six characters in length, as though they were headed by the character 
X. The processor continues to do this until it encounters another head. 

Thus the symbols used in block B x which contain less than six characters cannot 
possibly conflict with the symbols used in block B 2 . Six-character symbols are not 
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All six character symbols 
unheaded 



Headed by X 
Headed by blank 



Not required for all programs 



Nesting 



Cross-referencing headed blocks 



affected, that is, a six-character label, common, following the control instruction 
head 9 is not treated as 9common, for it would be a seven-character symbol, and 
only a maximum of six characters can be handled by the symbol table. 

A symbol is said to be "unheaded" if, and only if, its representation uses ex- 
actly six characters. The symbol common, for example, is unheaded. The symbol 
alpha whose length is less than six characters is considered to be headed, whether 
under a head control instruction or not. If alpha is under control of head x, then 
alpha is said to be "headed by X." If alpha is not under control of any head in- 
struction, then alpha is said to be "headed by blank." 

A symbol, alpha, headed by the character X, is not identical with the symbol 
xalpha. The heading character is essentially on a different level from the char- 
acters which make up the symbol. However, alpha headed by a blank should be 
regarded as identical to the symbol alpha used without a heading statement. 

If a head statement with a nonblank character does not occur in the entire 
source program, all considerations of heading can be ignored. This is the reason 
for not introducing the concept of headed symbols earlier. 

A head statement with a blank character must be used if the programmer de- 
sires to modify the heading process in the example. Note that the statement head 
and the statement head are quite different. For example, if blocks B t and B 2 are 
to be joined in one program, and B 2 must be nested somewhere in the middle of B„ 
as follows: 



Operation 



HEAD 



HEAD 



Operands 



X 



■J 



first part of block B, 



block B, 



second part of block B, 



the entire program might have been prefaced by a head statement with a blank 
character operand. As implied previously, however, such a head instruction is 
superfluous, since the symbols in the first part of block B x are automatically headed 
by blank, being under the control of no head instruction at all. 

Often it is inconvenient to refer to a symbol that is defined in another headed 
region because of the requirement that the symbol be six characters in length. To 
facilitate cross referencing between headed blocks, the following convention can 
be used: 

Suppose that a symbol, say sum, under head 1, has been defined by some in- 
struction. Suppose further that this symbol is to be referred to in an instruction 
under the control of the instruction head 2. Then the desired reference can be 
made by writing 1$sum as it appears in the following instruction 



A_^. 



Operandi & Remarks 



T,Q,TAI..,1,I.SD* 



$ signals head character 



In general, if the two-characters "C$", where C is any allowable heading 
character, is placed in front of the headed reference symbol sum, then the result 
is sum headed by C. To specify sum headed by blank, one simply writes $sum, 
with no character preceding the $ character. 
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Illegal uses 



Unconditional branch 



If the processor finds an operand containing a six-character symbol plus a 
head character, such as 9common, the processor will produce an error message 
indicating that the symbolic address contains more than six characters (see error 
messages, ER 5). 

If a label is used in a head statement, it is ignored. 

TCD — Transfer Control and loaD 

The tcd statement may be used to cause the processor to produce an unconditional 
branch instruction. When this instruction is encountered during the loading of 
the object (machine language) program, it causes the processor to halt the normal 
loading process and to branch to the location (addr) specified in the operand. 



Lab* DperWkn 



TCD. 



Operandi & fomariu 



Executes portions of 
the object program 



Return to loading by TRA 



IVo operands 



addr may be actual or symbolic. 

This statement allows programs which are too large to fit into core storage 
to be loaded and executed piecemeal, by terminating each piece with a tra state- 
ment. In effect, a tcd instruction can be used in conjunction with a dorg statement 
to execute portions of the program that have already been loaded into storage and 
to overlap these with other instructions. 

Whenever the processor encounters a tcd statement it causes the arithmetic 
tables, an unconditional branch instruction, and the loader program, to be punched 
into the object program tape or cards in that order. Therefore, when the object 
program is being loaded, the arithmetic tables will be loaded into storage before 
the branch occurs. Because the arithmetic tables are loaded into a portion of stor- 
age previously occupied by the loader program, the loader program will be de- 
stroyed. However, it will be restored (again loaded into storage) when a tra state- 
ment is encountered in the object program. That statement will be at the end of 
the portion of the object program that has been executed. 

During assembly, the tcd instruction does not affect the location assignment 
counter or alter the symbol table. 

TRA — Transfer to Return Address 

The tra statement causes the normal loading sequence of an object program to be 
resumed once it has been broken by a tcd statement. When a tra statement is 
encountered by the processor, a read-a-record (card or tape) instruction and an 
unconditional branch instruction to the loader program are produced in the object 
program. This processor control operation increments the location assignment 
counter by 24. The last statement of that part of a source program that is executed, 
when loading is interrupted by a tcd statement, must be a tra statement. When 
the tra instruction equivalences are encountered in the object program, the pro- 
gram loader is reloaded and the normal loading process continues. The tra state- 
ment, which takes the following form, uses no operands. 



Label Operatic* 



T.RA 



Operands & Remarks 



SL 
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Example 



The following example illustrates the use of the tcd and tha mnemonics. 



Line Label Jperotion 
> Si 11 13 IS 


Operands & Remark* 


o.i.o Sp^A 


P,T, (Qrpt.iis^i^Kjtiop), 












0.2,0 ., . 


e 


e e e 




















0-1,0 , , 


e 

J — 1— 1_ __L_I L_ 


e e e 

1 1 1 1 1 1 1 1 L J 




















0.4,0 , , 


• 
I— 1—1 ' 1 ' 


,«, ,». .,,..,. 




















O.S.O t > 


• 


e e e 
.j. i i i i i i . i i 




















OidO , , 


i i.TAA 


3 
















1 1 1 1 




t,;.o , , 


, . T.c.n 


S,TA.R,T.(gl , , , . 




















a. i.o , , 


. . DARfl 


R,T,A.RTJB| .... 




















0.9.0 , | 


, . ftem* line Instructions }, 




















1.0.0 _[ , 


e 


• • • 
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ll1l» 1 1 


1— L-J 1 1 JL. 


• • • 

i » 




















'.».» .,.J_ 
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The tcd statement causes a branch to the location assigned to the symbol start, 
followed by the execution of instructions from start through the tra statement. 
The tra statement causes a branch to the load program, which resumes loading 
of the remainder of the object program beginning with the location labeled start. 
The use of a macro-instruction preceding a tcd statement is not allowed. 
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1710 Imperative Operations 



Codes listed in Tables 10 and 11 



This section describes the imperative operation codes and "switch or indicator 
codes" that are used with the 1710 only. Six new operation codes are presented; 
two of these are classed as branch operations and four as analog-to-digital con- 
verter operations. A listing of these operation codes, both mnemonic and actual, 
is shown in Table 10. Statements using these codes are written in the same manner 
as 1620/1710 imperative statements. In Table 10, it may be noted that the sao and 
slrn operations require a Q 7 modifier. The list of unique mnemonics in Table 11 
may be used in place of sao and slrn operations requiring a modifier. Modifiers 
for unique mnemonics are supplied by the processor. 



TYPE 



Analog-to-Digital 
Converter 



Branch 



Table 10. Additional Imperative Operation Codes for the 1710. 



OPERATION CODE 



MNEMONIC 



»SAO 

•SLRN 
UMK 
MK 



BO 



BOLD 



ACTUAL 



84 
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46 



47 
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OPERATION 



Select Address and Operate 

Select Read Numerically 

Unmask Interrupts ( code zero in Qn ) 

Mask Interrupts ( code one in Qn ) 



Branch out of noninterruptible mode, load IR3 with P address ( code 
zero in Qn ) 

Branch out of noninterruptible mode, load IR1 with P address ( code 
one in Qn) 



Requires coding of modifier in Q, or unique mnemonic may be used which automatically generates modifier (see Table 11). 



Table 11. Unique Mnemonics To Replace 1710 SAO and SLRN Mnemonics Requiring Modifiers in Q 7 



MNEMONICS 


MODIFIER 
Q, 


OPERATION 


EQUIVALENT 


UNIQUE 






SA 


1 


Select Address 


SAO 




SACO 


2 


Select Address and Contact Operate 






SAOS 


3 


Select Address and Provide Output Signal 






SLTA 


1 


Select TAS 






SLAR 


2 


Select ADC Register 


SLRN 




SLTC 


4 


Select Real-Time Clock 






SLAD 


6 


Select ADC and Increment ( 1711, Model 1, only) 






SLCB 


7 


Select Contact Block 






SLME 


8 


Select Manual Entry Switches 
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Switch or indicator codes, 
Table 12 



Both the bi or bni operations require as a Q address one of the 14 switch or 
indicator codes (for 1620/1710) from Table 5 or one of the 35 switch or indicator 
codes (for 1710 only) from Table 12. These codes indicate the switch or indicator 
to be interrogated for status by the bi or bni operations. 



Table 12. Additional Switch and Indicator Codes Used as Actual Q Addresses 
in 1710 BI and BNI Instructions. 



_o 

O 

c 



Q» 



Q ADDRESS 






1 

2 

2 

2 

2 

2 

2 

2 

4 

4 

4 

5 

5 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

8 

8 

8 

8 

8 

8 

8 

8 




8 

8 
1 
2 
3 
6 
7 
8 
9 





1 


1 
2 
3 
4 
5 
6 
7 
8 
9 

1 
2 
3 
4 
5 
6 
7 



Q» 



& 


is 


o 


o 






a> 





-Q 


-C 


ID 








o 


o 


c 


a 


<D 


u 


ID 


u 


Cfl 


<z> 



SWITCH OR INDICATOR 



Branch Out of Interrupt 

MAR Check* 

Operator Entry 

Terminal Address Selector (TAS) Check 

Functional Register Check* 

Analog Output (AO) Check* 

Mask Indicator 

Customer Engineer ( CE ) Interrupt 

Analog Output (AO) Setup 

Terminal Address Selector ( TAS ) Busy 

Multiplexer Complete 

Process Interrupt 1 

Process Interrupt 2 

Process Interrupt 3 

Process Interrupt 4 
Process Branch Indicator 1 
Process Branch Indicator 2 
Process Branch Indicator 3 
Process Branch Indicator 4 
Process Branch Indicator 5 
Process Branch Indicator 6 
Process Branch Indicator 7 
Process Branch Indicator 8 
Process Branch Indicator 9 
Process Branch Indicator 10 
Process Branch Indicator 11 
Process Branch Indicator 12 
Process Branch Indicator 13 
Process Branch Indicator 14 
Process Branch Indicator 15 
Process Branch Indicator 16 
Process Branch Indicator 17 
Process Branch Indicator 18 
Process Branch Indicator 19 
Process Branch Indicator 20 



*The Any Data Check indicator ( 19 ) also is on when this indicator is on. 

Note: Position Q, may contain any digit value or blank, Q M may contain any digit value, and 
Q« any digit value with the exception of zero or one. 
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1620/1710 Subroutines 



Program or Routine 



Common to many programs 
Subroutine 



17 Library subroutines 



Variable length 
Fixed length 



A program or routine is a set of coded instructions that are arranged in a logical 
sequence; it is used to direct the 1620, or any ibm data processing system, to per- 
form a desired operation or series of operations. Generally, programs contain one 
or more short sequences of instructions that are parts or subsets of the entire pro- 
gram and that are used to solve a particular part of a problem. These parts of the 
program or routine are called subroutines. 

Usually, a subroutine performs a specific function, is common to a number of 
programs, and may be executed several times during the course of the program 
of which it is a part (main program). For example: a subroutine that extracts the 
square root of a number may be required several times during the execution of 
a pipe stress analysis program. The same subroutine may be used to extract a square 
root in a bridge and truss design program. 

An efficient programming procedure is obviously one in which all necessary 
subroutines are coded only once, are retained on file, and are incorporated into a 
program whenever the operation performed by the subroutine is required, ibm 
Applied Programming has developed for the 1620/1710 Symbolic Programming 
System a group of subroutines that are more frequently required because of their 
general applicability. Seventeen subroutines are available; they fall into three gen- 
eral categories: arithmetic, data transmission, and functional. 

Arithmetic subroutines 
Floating Point Add 
Floating Point Subtract 
Floating Point Multiply 
Floatingpoint Divide 
Fixed Point Divide 

Data transmission subroutines 
Floating Shift Right 
Floating Shift Left 
Transmit Floating 
Branch and Transmit Floating 

Functional subroutines ( those that evaluate ) 
Floating Point Square Root 
Floating Point Sine 
Floating Point Cosine 
Floating Point Arctangent 
Floating Point Exponential ( natural ) 
Floating Point Exponential (base 10, common) 
Floating Point Logarithm ( natural ) 
Floating Point Logarithm (base 10, common) 

The methods used by the functional floating point subroutines to evaluate 
the functions of arguments are shown in Table 13. 

The combined subroutines are written in machine language and are provided 
in card or paper tape form for floating point numbers with either a fixed length or 
variable length mantissa. The term "variable length" or "fixed length," as applied to 
subroutines in this manual, refers to the number of digits ( L ) in the mantissa, not 
to the length of the subroutine itself. 
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Table 13. Subroutine Method for Evaluating Arguments. 



SUBROUTINE 


METHOD 


FIXED LENGTH 


VARIABLE LENGTH 


Square Root 


Odd integer 


Odd integer 


Sine and Cosine 


Based on Hastings' approximation* 


Series approximation 


Arctangent 


Truncated series 


Series approximation for arctangent 


Exponential (natural 
and base 10) 


Hastings' approximation for 10 B 
10 B is converted to e B 


Series approximation of 10 B 
and convert to e B 


Logarithm (natural 
and base 10 ) 


Truncated series for In B 
In B is converted to log™ B 


Series approximation of In B 
and convert to log B 



' Hastings, Cecil, Jr., Approximations for Digital Computers, 
Princeton University Press, Princeton, New Jersey, 
The Rand Corporation, 1955. 



Five sets of subroutines 



PICK common to all subroutines 



Function of processor 



Adding subroutines 



The five types of subroutine card decks or paper tapes are: 

1. Fixed length subroutines for machines not equipped with the automatic 
divide feature. 

2. Fixed length subroutines for machines equipped with the automatic divide 
feature. 

3. Variable length subroutines for machines not equipped with the automatic 
divide feature. 

4. Variable length subroutines for machines equipped with the automatic 
divide feature. 

5. Variable length subroutines for machines equipped with automatic floating 
point feature (for which the automatic divide feature is a prerequisite). 

Although type 2 and type 4 subroutines are designed to work with the auto- 
matic divide feature, the "fixed point divide" subroutine is included as part of the 
subroutine package. Type-5 variable length subroutines that are designed to work 
with the automatic floating point feature include a complete set of subroutines as 
part of the package. 

A pick subroutine is included in the object program with any of the 17 subrou- 
tines previously mentioned. This subroutine performs the function of getting the 
data specified for a subroutine and storing the result produced by that subroutine. 

The processor selects the subroutines used by the source program that are to 
be included in the object deck or tape. When the object deck or tape is loaded, the 
subroutines are loaded to the first even-numbered address following the object 
program. Although this address is assigned by the processor, care must be exercised 
by the programmer to provide a storage area, between the position assigned by 
the processor and position 19999 ( standard-capacity machine) , that is large enough 
to accommodate the subroutines called for. To find the amount of storage required 
for the subroutines, the programmer may total the storage requirements of -the 
subroutines used. 

The fixed point divide subroutine (div) is used by some floating point func- 
tional subroutines. For this reason it will automatically be incorporated into a pro- 
gram which uses these subroutines when the machine used to run the program is 
not equipped with automatic divide (special feature). 

In addition to the Library subroutines, the user may include up to twelve sub- 
routines of his own. The method used to incorporate these routines into a program 
is explained under adding subroutines. 
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Programmer writes macros 
Processor generates linkage 



Linkage and Macro-instructions 

All linkages for the 1620 subroutines are generated automatically through the use 
of certain macro-instructions. The programmer places the macro-instruction that 
is related to a particular subroutine in the source program at the point at which 
the subroutine is desired. This causes the sps processor, during assembly, to gen- 
erate linkage to the desired subroutine. In addition, the processor arranges for 
the subroutine to be added to the object program. 

The data and addresses required by the subroutine and supplied in the macro- 
instruction are incorporated into the linkage instructions where they are made avail- 
able for use. In this way the subroutine obtains the information it requires to per- 
form its given task and also to compute a return address to the main program. 
Control is returned to the main program at the completion of the subroutine by 
transferring to the return address. The macro-instruction statement related to each 
subroutine is as follows: 



Arithmetic Subroutines Macro-instruction 



Line 
3 S 



«■»■■ 



0.5,0 



Label operation 



IA. 



FJL 



LM_ 



EjQ. 



Dili 



Aol 



A^E©^ 



j. (Floating Add) 

j (Floating Subtract) . 

I (Floating Multiply) . 

1. (Floating Divide) 



^ _ 
A.,B.A,l„B,lfl (Divide) 



Operandi & Remark! 



Data Transmission Subroutines Macro-instruction 



Line 
3 i 



0.2,0 



Label Dperarior 



FSBS 



EfiLfi 



rixs 



MIS. 



An 



Operandi & Remark. 



j (Floating Shift Right) 

j (Floating Shift Left) 

_, (Transmit Floating) 

± (Branch and Transmit Floating) 



_i ■ ■ * ■ 



Functional Subroutines Macro-instruction 



i L 



t.i.i 

o.i.o 

'■'■' 



Operation 



F.SftR 



ESIN. 



F.CAS A 



MlEHl 



M&. 



'■Ml 



F.LM 



FJiQgA 



A^B 



AJ 



Operand. & Remade. 



(Floating Square Root) 
(Floating Sine) 
(Floating Cosine) 
(Floating Arctangent) 
(Floating Exponential .Natural) . 
(Floating Exponential, Base 10) . 
(Floating Logarithm, Natural) 
(Floating Logarithm, Base 10) 







_, — i i i i i 



Arithmetic subroutine macros 



Data transmission macros 



Functional subroutine macros 



In the arithmetic statements, the B operands represent the addresses of quan- 
tities to be added, subtracted, etc., to quantities at addresses specified by the A 
operands. For the fixed point divide routine, two additional operands, Al and 
Bl, are required. These operands, as well as the A and B operands, are explained 
in greater detail under each macro-instruction as it is described. In the data trans- 
mission statements, the B operand generally represents the address of the field to 
be transmitted, whereas the A operand represents the address to which the field is 
to be transmitted. The function of the A and B operands differs slightly for func- 
tional subroutine macro-instructions. In this case, the B operand represents the 
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Use of indirect 
addressing with 



Two linkage instructions for 
each macro 



Rules for coding macros 



Linkage 



address of the argument to be evaluated and the A operand represents the address 
where the result is placed in storage. 

Indirect addressing (special feature) can be used with the operands of all 
macro-instructions on machines with or without the automatic floating point fea- 
ture. To indicate an indirect address, an operand should be preceded by a minus 
sign. An indirect address in the form xxxxx is generated by the processor. A flag 
is automatically placed in the leftmost and rightmost positions of the address. A 
flag in any other position of an indirect address is not permitted. If indirect 
addressing is attempted on a machine that does not have the indirect addressing 
feature, the flagged operand is not interpreted as an indirect address. 

For each macro-instruction statement in a source program, two machine lan- 
guage linkage instructions, and a 5-digit address for each operand, are generated by 
the processor in the object program. These linkage instructions replace the macro- 
instruction, which never appears in the object program. A label written with a 
macro-instruction references the leftmost position of the first linkage instruction 
generated. If the programmer wishes to use this label in address adjustment, he 
must remember that the instruction located following a macro-instruction is not 

LABEL + 12. 

When using a macro-instruction, the programmer must code the exact num- 
ber of operands required for that macro-instruction. Every macro-instruction must 
have at least two operands. Remarks and flag operands are not permitted in macro- 
instructions. Omitted operands require the insertion of commas as in imperative 
statements. 

All operands in macro-instructions may be symbolic or actual; all are subject 
to address adjustment. If an * is used as an operand, its address is that of the left- 
most postion of the first linkage instruction. 

The linkage instructions generated for a macro-instruction by the processor 
are equivalent to the following series of symbolic instructions: 



Secondary linkage 



Lir» 
i 3 


Label 
6 11 


Operation 
IZ ts 


Operandi & Remariu 
MM » 303540 4150 Si « 




0.1. f 





T.F.ft? 


V.1CK+.1.1..**2 9& 


9.2.0 





B, ■ , 




0.3,0 


i i i . ■ 


DrO,RP 




0.4,0 


■ ' ' 1 ' 


DtfAi 


Ai 3i. Ci. iDQ i i i i j , i i i . . * . , . , , , 



where pick is the address of the first instruction in the pick subroutine that is shared 
by all subroutines; subk is the secondary linkage for the desired subroutine (that 
subroutine specified by the macro-instruction); and A, B, C, D . . . are the series of 
5-digit addresses or constants that are equivalent to the operands specified by the 
macro-instruction. Tins linkage allows the macro-instruction to contain any number 
of operands, an ability that is significant for "adding subroutines." 

During execution of the object program, the secondary linkage instructions 
set up the address of the first instruction in the desired subroutine as a part of one 
of the instructions in the pick subroutine. Secondary linkage instructions are gen- 
erated by the processor for each subroutine used by the source program. They are 
equivalent to the following symbolic instructions : 

For arithmetic subroutines (not including div) 

SUBR TFM PICK + 402, ADDR (i) 
B PICK (E) 

For data transmission subroutines ( not including fsrs, fsls ) 

SUBR TFM PICK + 402, ADDR (£) 
B PICK + 104 (E) ^ 
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For functional subroutines 

PICK + 402,, 



Subroutines contained in deck 
or tape 



Paired subroutines 
Conserve storage 



Divide subroutine used by 
certain subroutines 



® 



SUBR TFM PICK + 402, ADDR 
B PICK + 104 (E) 

For div (arithmetic), fsrs, and fsls (data transmission) subroutines 

SUBR TF ADDR +11, PICK + 11 (g) 
B ADDR (£) 

pick is the address of the first instruction of the pick subroutine, and addr is 
the actual address where the first instruction of the desired subroutine is located. 
In the secondary linkage, pick + 402 is the address equivalent for the variable 
length subroutines only. That address should be replaced by pick + 414 for fixed 
length subroutines. For variable length subroutines using the floating point feature, 
the secondary linkage instructions generated are equivalent to the following sym- 
bolic instructions: 

For arithmetic subroutines 

SUBR TF ADDR + 11, PICK + 11 (£) 
B ADDR (E) 

For data transmission subroutines ( not including fsrs, fsls ) 

SUBR TF PICK + 174, ADDR (£) 
B PICK + 24 

For functional subroutines 

SUBR TF PICK + 174, ADDR (g) 
B PICK + 24 (£) 

The subroutine card deck or paper tape will contain the subroutines in the 
order shown. All except the first three are floating point subroutines. 



1. Subroutine Processor 

2. Pick 

3. Divide ( fixed point ) 

4. Subtract -Add 

5. Multiply 

6. Divide 

7. Square Root 



8. Cosine — Sine 

9. Arctangent 

10. Exponential ( natural and base 10 ) 

1 1 . Logarithm ( natural and base 10 ) 

12. Shift Right 

13. Shift Left 

14. Transmit Floating 

15. Branch and Transmit Floating 

Many subroutines have been paired (i.e., add and subtract, sine and cosine, 
natural and base 10 exponential, natural and base 10 logarithm), into single sub- 
routines to conserve storage by sharing those program steps common to both. The 
individual subroutines within each pair are distinguished from each other solely 
by the point at which they are entered. The correct entry point is obtained through 
use of the macro-instruction pertaining to the particular subroutine desired. 

Because the arctangent subroutine and both logarithm subroutines (natural 
and base 10) require the fixed point divide routine, the macro-instructions fatn, 
fln, and flog cause the fixed point divide subroutine to be added to the object 
program output (provided the machine is not equipped with automatic divide). 
For the fixed length mantissa subroutines, any of the previously listed subroutines 
3-8, 10, 12-15, may be called for and added to the object output without calling 
any other subroutine; i.e., floating add-subtract may be called without calling 
floating multiply. For the variable length mantissa subroutines, any of the four 
arithmetic macro-instructions (fa, fs, fm, fd) will cause all three arithmetic sub- 
routines (4. floating add-subtract, 5. floating multiply, and 6. floating divide) to be 
called for and added to the object program output. However, the other subroutines 
may be called for independently of each other. 
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Subroutine processor 



Not part of object program 



In the object program output, each subroutine except the pick subroutine is 
preceded by its secondary linkage. However, when the object program is loaded, 
the secondary linkages for all of the subroutines are stored in storage positions that 
immediately follow the object program, starting with the first even-numbered ad- 
dress, pick and other subroutines are loaded into sequentially higher addresses (in 
the order previously listed ) . 

The subroutine processor is loaded into an area of storage which is occupied 
by the sps processor, thereby destroying a portion of the sps processor. To restore 
the sps processor to its original status, the part destroyed must be reloaded after 
selection of the subroutines is completed. Restoration of the sps processor is accom- 
plished automatically with the data which follows the last subroutine (15. Branch 
and Transmit Floating) of the subroutine deck or tape. This data includes the 
loader, arithmetic tables, and that part of the sps processor previously destroyed. 
The "subroutine processor" is never a part of the object program output or final 
object program. 



Sequence Numbering of Subroutines 

Subroutine sequence maintained The subroutine deck contains a sequence number in columns 77-80. This number 
by number in columns 77-80 allows the programmer to restore the correct sequence should a deck be dropped 

or a card inadvertently misplaced. To operate correctly, subroutines should be in 



Table 14. Codes Used in Column 77 of Subroutine Deck To Identify and Sequence Subroutines. 



SUBROUTINE 


NUMBER 


CODE IN 


COLUMN 77 


FIXED LENGTH 


VARIABLE LENGTH 


Subroutine 
Processor 

PICK 


None 
00 


blank 



blank 



DIV 


01 


1 


1 


FS 

FA 


02 
03 


V 


~ 




FM 


04 


4 




' 2 


FD 
FSQR 


05 
06 


5 
6 


> 


6 


FCOS 

FSIN 


07 
08 


}' 


}' 


FATN 


09 


9 


9 


FEXT 


10 


1 _ 


^ 


FEX 


11 


}° 




• 


FLOG 


12 


"1 


1 


FLN 


13 


y 


} 5 


FSRS 


14 


4 


4 


FSLS 


15 


5 


5 


TFLS 


16 


6 


6 


BTFS 

1 


17 


7 


7 
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Fixed length and variable length 
subroutine codes, Table 14 



sequence. Subroutines not wanted by a user can be removed from the subroutine 
deck. The macro-instruction associated with that subroutine may not be used, 
if the subroutine has been removed. 

Each card in the subroutine deck contains a code in column 77. These codes 
for both fixed length and variable length subroutines are shown in Table 14. In 
addition, each subroutine is numbered 000, 001, etc., in columns 78-80. A flag in 
column 78 indicates variable length subroutines, whereas omission of this flag 
indicates fixed length subroutines. A flag in column 79 indicates that the subroutine 
is designed to work with automatic divide; no flag in this column indicates that it 
is designed to work without the automatic divide feature. A flag in column 80 indi- 
cates it is designed to work with the automatic floating point feature. 



To locate decimal point 



To handle large numbers 



Eliminates scaling 



Standard representation for 
all quantities 



Scientific notation 



Floating Point Arithmetic 

Scientific and engineering computations frequently involve lengthy and complex 
calculations necessitating the manipulation of numbers that may vary widely in 
magnitude. To obtain a meaningful answer, problems of this type usually require 
retention of as many significant digits as possible during calculation, and correct 
positioning of the decimal point at all times. When the computer is used for such 
problems, several factors must be considered, of which the most important is the 
location of the decimal point. 

In general, a computer does not recognize the presence of a decimal point in 
any quantity during calculation. A product of 41454 results whether the factors 
are 9.37 x 44.2; 93.7 x .442; or 937 x 4.42; etc. The programmer must be cognizant 
of the location of the decimal point during and after the calculation and arrange 
the program accordingly. In adding, the decimal points of all numbers must be 
lined up to obtain the correct sum. The programmer facilitates this arrangement 
by shifting the quantities as they are added. In the manipulation of numbers that 
vary greatly in magnitude, it is conceivable that the resulting quantity could exceed 
allowable working limits. 

Processing numbers expressed in ordinary form, e.g., 427.93456, 0.0009762, 
5382, -623.147, 3.1415927, etc., can be accomplished on a computer only with 
extensive analysis to determine the size and range of intermediate and final results. 
The percentage of time required for this analysis and subsequent number scaling 
is frequently much larger than the percentage of time required to perform the 
actual calculation. Moreover, number scaling requires complete and accurate 
information regarding the bounds on the magnitude of all numbers that come into 
the computation (input, intermediate, output). Since prediction of the size of all 
numbers in a given calculation is not always possible, analysis and number scaling 
are sometimes impractical. 

To alleviate this programming problem, a system must be employed which 
provides information regarding the magnitude of all numbers in the calculation 
along with the quantities in the calculation. Thus, if all numbers are represented 
in some standard, predetermined format that instructs the computer in an orderly 
and simple fashion as to the location of the decimal point, and if this representation 
is acceptable to the routine that performs the calculation, then quantities that range 
from minute fractions having many decimal places to large whole numbers having 
many integer places can be handled. The arithmetic system most commonly used, 
in which all numbers are expressed in a format that has these characteristics, is 
called "floating point arithmetic." 

The notation used in floating point arithmetic is basically an adaptation of 
the scientific notation that is widely used today. In scientific work very large or 
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Mantissa 
Exponent 



Format 



Limits 



Range of exponent 



Sign control 



Normalized 
Unnormalized 



Data must be normalized 



very small numbers are expressed as a number, between one and ten, times a power 
of ten. Thus, 

427.93456 is written as 4.2793456 x 10 2 , 
and 0.0009762 is written as 9.762 x 10- 4 

In the 1620 floating point arithmetic system, the range of the fractional part of the 
number is modified to extend between .10000000 and .99999999, that is, the decimal 
point of all numbers is placed to the left of the high-order (leftmost) nonzero 
digit. Hence, all quantities may be thought of as a decimal fraction times a power 
of ten. For example, 

427.93456 becomes .42793456 x 10 3 
and 0.0009762 becomes .97620000 x 10- 1 
where the fraction is called the mantissa, and the power of ten, indicating the 
number of places the decimal point was shifted, is called the exponent. The use of 
floating point numbers during processing, besides offering advantages inherent in 
scientific notation, eliminates the need for analyzing operations in order to deter- 
mine the positioning of the decimal point in intermediate and final results, since 
the decimal point is always immediately to the left of the high-order, nonzero 
digit in the mantissa. 

In 1620/1710 floating point operations, a floating point number is a field con- 
sisting of a variable length or fixed length mantissa and a 2-digit exponent. The 
exponent is in the two low-order positions of the field, and the mantissa is in the 
remaining high-order positions, as shown: 

M MEE 

For the subroutines, the variable length mantissa may have a minimum of two 
digits and a maximum of 45 digits. Two operand fields that are added together 
must have mantissas of the same length. A flag over the high-order digit marks 
the extremity of the field. A fixed length mantissa must have eight digits. 

The exponent is established on the premise that the mantissa is less than 1.0 
and equal to or greater than 0.1. It always consists of two digits ranging between 
—99 and +99. A flag over the high-order (ten) digit defines the exponent. 

The high-order digit of the mantissa and the high-order digit of the exponent 
must contain flag bits to operate properly with floating point subroutines. 

The mantissa and the exponent, if negative, must have an algebraic sign, 
represented by a flag, over the units position of the respective fields; if they are 
positive, they are not flagged. A floating point number with a negative mantissa 
and a negative exponent is represented as follows: 



M 



MEE 



Sign control of the results of all computations is maintained according to the 
standard rules of arithmetic operations. 

In all floating point numbers the decimal point is assumed to be at the left 
of the high-order digit, which must be a nonzero digit. Such a number is referred 
to as normalized. When a number has one or more high-order zeros, it is considered 
to be unnormalized. An unnormalized number resulting from a floating point sub- 
routine computation is normalized automatically, but unnormalized terms are not 
recognized as such when entered as data. Therefore, it is necessary for all data to 
be entered in normalized form. Although unnormalized numbers will be processed, 
correct results cannot be assured. For example, the number 0682349405 should be 
entered as 6823494004, assuming the fixed point number is 6823.494, and an 8-digit 
mantissa is required. 
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Conversion 



N digit 



Effects of normalizing 



Truncation error 



Maximum truncation error 



Overflow 
Underflow 



The following examples demonstrate the conversion of numbers in ordinary 
form to 1620 floating point notation for an 8-digit mantissa. 



NUMBER 

123.45678 

.00765438 

-.12348693 

-.00000070 

.00000000 



NORMALIZED 

.12345678 X 10 3 
.76543800 X 10" 2 
-.12348693 X 10° 
-.70000000 X 10- 6 
.00000000 X 10" 



1620 FLOATING POINT 

1234567803 
7654380002 
1234869300 
7000000006 
0000000099 



Note: A zero mantissa is associated with a 99 exponent. 

The result of a floating point operation is normalized automatically. For ex- 
ample, the result .00123456 when normalized becomes 123456NN02, where N is 
an inserted digit and 02 is the exponent. The value of the N digit (0 through 9) 
is determined by the programmer, who in most cases will choose to use zero. The 
storage location of the N digit is the first odd-numbered location following the 
last secondary linkage of the assembled program. The programmer must always 
store the N digit. He may do this by using the following statements, where the con- 
stant ( N digit ) is zero. 



l*JLi£ 

ti a iff 



Label Operatior 



DA&. 



D.E 



M& 



Operandi & Itanariu 



1...0D 



In normalizing, certain low-order digits in a mantissa may lose significance. 
To recognize these digits, the floating point arithmetic can be performed twice, 
using a different N digit for each run, e.g. zero for the first run and nine for the 
second run. The significance of these digits can be readily distinguished by com- 
paring the two results. For example, if the programmer compares the following: 





Mantissa 


Exponent 


Result, 1st run 


.12345000 


04 


Result, 2nd run 


.12345099 


04 



he will see that the two low-order positions of the mantissa have lost significance 
because they are significantly different. 

When intermediate floating point results enter into additional floating point 
calculations, inserted digits may become a part of the result of the additional 
calculation. 

In the case of lengthy computations using floating point results, precision 
gradually decreases because of truncation. The magnitude of the truncation error 
depends on the individual computation process and cannot be predicted without 
a knowledge of the process in question. However, the truncation error in such cases 
is usually no greater than the degree of error present in a rounded amount. Results 
in floating point subroutines are not rounded. The maximum truncation error for 
a fixed length mantissa will not exceed 10" 8 or for a variable length mantissa, 10 L , 
except under certain conditions described in the explanation of floating point func- 
tional subroutines. 

Exponent Overflow and Underflow 

In the 1620/1710 floating point subroutines, numbers with" a magnitude equal to 
or greater than 10" create a condition called exponent overflow; those with a mag- 
nitude of less than 10" create a condition called exponent underflow. If either of 
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Options 



Determined by position 401 



these conditions is generated as a result of an arithmetic operation, the programmer 

has two options. 

Overflow 

1. To halt the program or 

2. To cause 9 999 to be placed in the result field and to continue exe- 
cuting the subroutine. 

Underflow 

1. To halt the program or 

2. To cause 099 to be placed in the result field and to continue exe- 
cuting the subroutine. 

The options function independently of each other. Therefore it is possible to 
halt on an overflow and place zeros in the result field on an underflow, or to halt 
on an underflow and place nines in the result field on an overflow. 

The detection of an overflow or underflow condition causes the subroutine 
being executed to examine core storage position 00401 to determine the course of 
action. Options available to the programmer must be represented in position 401 
by one of the following characters: 





Halt 


UNDERFLOW 

Store Zeros in 
Result Field 


o 

v 

E 
R 
F 
L 

o 

w 


Halt 








Store All 
Nines in Result 
Field 


1 


1 



To store the code determining the option in 401, an unlabeled Define Con- 
stant (dc) statement may be used, as shown in the following example: 



Operohon 



m^. 



Operandi & RcmaHci 



2,.,-fl,..4J.l,.HAl.T, OM. .OVERFLOW OR, .UNDE.RF. 



Affects six subroutines 
When subroutine halts 



Positive codes (0 or 1) need not be preceded by a plus sign. 

Overflow and/or underflow conditions can only arise in six of the floating 
point subroutines presented in this manual, namely, the four arithmetic subroutines 
and the two exponential functional subroutines. 

If the subroutine halts on an overflow or underflow condition, the operator 
can continue processing by depressing the start key on the console. In the case of 

an overflow, execution of the subroutine begins after 9 999 is placed in the 

result field; in the case of an underflow, after 099 is placed in the result field. 



Format of error messages 



Subroutine Error Messages 

In 1620 subroutines the presence of special conditions causes an error message. This 
message is typed out in the following form: 



XXXXX00XX 
R S 

where R is a return address to the main program 
and S is a code that identifies the special condition. 
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Error codes 



Listed in Table 15 



With the exception of exponent overflow or underflow, where the course of 
action depends upon the digit at location 401, a subroutine always halts immedi- 
ately after typing the error message. The error message code indicates the reason 
for the halt. The operator may insert a branch instruction at storage location 00000. 
The branch instruction will contain the return address to the main program. In 
cases such as floating square root, execution of the subroutine may be made to con- 
tinue, after a halt, by depressing the start key. 

Table 15 lists the error codes for special conditions and the appropriate action 
to be taken. 



Table 15. Error Codes 



ERROR 
CODE 



01 

02 
03 
04 
05 

06 
07 

08 

09 
10 



11 

12 
13 

14 



DESCRIPTION OF ERROR 



FA or FS, Exponent Overflow 

FA or FS, Exponent Underflow 

FM, Exponent Overflow 

FM, Exponent Underflow 

FD, Exponent Overflow 

FD, Exponent Underflow 

FD, Attempt to divide using a number with a zero mantissa 
divisor 

FSQR, Attempt to find the square root of a negative number 



FSIN or FCOS, Input argument has an exponent value greater 
than 08 (fixed length mantissa) or L (variable-length mantissa) 

FSIN or FCOS, For a fixed-length mantissa, the input argument 
has an exponent (X) such that 03 < X < 08. For a variable- 
length mantissa, the input argument has an exponent (X) such 
that 03 < X < L where L = length of a mantissa. 

FEX or FEXT, Exponent Overflow 

FEX or FEXT, Exponent Underflow 

FLN or FLOG, Input argument has a zero mantissa 

FLN or FLOG, Input argument is negative 



OPERATOR'S ACTION WHEN 
SUBROUTINE HALTS 



May continue execution of subroutine by 
depressing start key 

Same as code 01 

Same as code 01 

Same as code 01 

Same as code 01 

Same as code 01 

May not continue execution of subroutine 
but may branch back to main program using 
return address 

Pressing the start key causes the subroutine 
to extract the square root of the absolute 
value of the argument 

Same as code 07 
Same as code 01 



Same as code 01 

Same as code 01 

Same as code 07 

Pressing the start key causes the subroutine 
to continue execution, using the absolute 
value of the argument 
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Storage requirements 



Listed in Table 16 



In this section are described the various subroutines, their associated macro-instruc- 
tions, core storage requirements, and average execution time. By totaling the stor- 
age required for each subroutine in a specific program, the programmer can ascer- 
tain whether there is sufficient storage between the last position of storage that is 
used by the object program and position 19999 (standard-capacity machine) to 
store the subroutines. As stated earlier, the four subroutines that use fixed point 
divide (either automatic divide or the divide subroutine) are: floating divide, 
floating arctangent, floating exponential, and floating logarithm. Fixed length man- 
tissa subroutines that use automatic divide in the computation require less storage 
than fixed length mantissa subroutines that use the fixed point divide subroutine. 
Table 16 shows the storage requirement for each fixed length and variable length 
subroutine. 



Table 16. Summary of Storage Requirements of Subroutines. 



SUBROUTINE 


NUMBER OF STORAGE POSITIONS REOUIRED 


FIXED 


LENGTH 


VARIABLE LENGTH 


WITH 


WITHOUT 


WITH 


WITHOUT 


WITH 




AUTOMATIC 


AUTOMATIC 


AUTOMATIC 


AUTOMATIC 


AUTOMATIC 




DIVIDE 


DIVIDE 


DIVIDE 


DIVIDE 


FLOATING POINT 


PICK 


872 


872 


1136 


1136 


896 


DIV 


187 


1047 


199 


1035 


199 


FA 


1 


1 


■> 




> 




-\ 


FS 


> 543 


> 543 














FM 


239 


239 




>1163 




•1207 




> 603 


FD 


335 


523 


_ 












FSQR 


579 


579 


659 


659 


659 


FCOS 


1 


1 


1 


1 


T 


FSIN 


> 843 


y 843 


k054 


H098 


M054 


FATN 


989 


1077 


1379 


1487 


1379 


FEXT 


1 


1 


1 


"I 


N 


FEX 


>■ 740 


> 784 


M118 


K258 




►1118 


FLOG 


1 


1 


1 


") 


1 


FLN 


>■ 842 


> 886 


J-1145 


► 1209 


K145 


FSRS 


279 


279 


279 


279 


96 


FSLS 


372 


372 


372 


372 


96 


TFLS 


31 


31 


31 


31 


31 


BTFS 


79 


79 


79 


79 


43 



56 



High/Positive 

Equal/Zero 

indicators 



During the execution of arithmetic subroutines, the overflow, high /positive, 
and equal/zero indicators are used. The overflow indicator is always reset at the 
beginning of each arithmetic subroutine. If it is desired to determine its status 
prior to the execution of an arithmetic subroutine, the indicator must be tested 
and its condition stored before the linkage instructions are executed. The 
high/positive and equal/zero indicators are set according to the mantissa of the 
result. Whenever a zero mantissa results (0 099), the equal/zero indicator 

is turned on. 

At the conclusion of a functional subroutine, the status of the high/positive, 
equal/zero, and overflow indicators does not necessarily reflect the result of the 
operation, because the indicators are disturbed during the execution of a functional 
subroutine. Therefore, their status at the conclusion of a functional subroutine 
should not be assumed to be the same as it was prior to the execution of the 
subroutine. 



Pick 
Functions 



Execution time 



Pick 

This subroutine is common to all fixed length and variable length mantissa sub- 
routines. The pick subroutine, during execution of the object program, 

1. Sets up A and B operands (more, if designated) to be operated upon, calcu- 
lates the return address to the mainline program, and branches to the 
subroutine. 

2. Stores the calculated result in the proper storage area and branches back 
to the mainline program. 

3. Initiates typing of error messages and branches to the subroutine if the 
error condition allows processing of the subroutine to be resumed. 

4. Provides constants and working storage for the other subroutines. 

The average execution time for the pick subroutine can be determined by the 
formula: 

Average time ( in /as ) — 100L + 8320 

where L equals the length of the mantissa and the numbers are expressed in 
microseconds. Therefore, an 8-digit mantissa (same as fixed length mantissa) 
requires 9120 /as. 

100 X 8 = 800 
8320 



9120 ( /is ) 

or approximately nine milliseconds ( ms ) . If indirect addressing is used, the average 
time is increased according to the number of levels of indirect addressing used. 

Note: For the variable length subroutines used with the automatic floating point 
feature, 

Average time (in jus) = 100L + 4500 

Floating Add 
Macro-instruction 



Label Operation 



FA_ 



Operandi & Remarks 
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FA macro 



The A and B addresses refer to the units position of the exponent of the fields: 

MMMMMMMMEE 

f 

address of field 

where Es represent digits of the exponent and Ms represent digits of the mantissa. 

Operation 

Field B is added to field A. The floating point sum replaces field A; field B remains 
unchanged. 

Average Execution Time 

Fixed length 

Average time = 9 ms 
Variable length 

Average time (in /as) = 5L 2 + 482L + 6854 
where L = length of mantissa 

Floating Subtract 
Macro-instruction 




Operandi & Remarks 



_« » H M u « 



FS 



The A and B addresses refer to the units position of the- exponent of the fields. 

Operation 

Field B is subtracted from field A. The floating point difference replaces field A; 
field B remains unchanged. 

Average Execution Time 

Fixed length 

Average time = 10.5 ms 
Variable length 

Average time ( in /is ) = 5L 2 + 482L + 7474 

Floating Multiply 
Macro-instruction 



Line 
3 5 



Operation 



F,M 



Operandi & Remarks 



SO Si 



« is 



FM macro 



The A and B addresses refer to the units position of the exponents of the fields. 

Operation 

Field A is multiplied by field B. The floating point product replaces field A; field 
B remains unchanged. 

Average Execution Time 

Fixed length 

Average time = 18 ms 
Variable length 

Average time (iniis) = 168L 2 + 240L + 7400 
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Floating Divide 
Macro-instruction 



Label Operation 



F.D, 



Operandi & Remarks 



A..B§, 



FD macro 



Operation 

Field A is divided by field B. The floating point quotient replaces field A; field B 
remains unchanged. 
Average Execution Time 

Fixed length 

With automatic divide 

Average time — 55 ms 
Without automatic divide 

Average time = 70 ms 
Variable length 

With automatic divide 

Average time (in <us) = 520L 2 + 1500L + 7890 
Without automatic divide 

Average time (in M s) = 1.9[520L 2 + 1500L + 7890] 

Fixed Point Divide 
Macro-instruction 



lira 



label Operation 



Operands & Remarks 



a,.,b,.a.i,.b,hi 



DIV macro 



Four operands required 



Product area 00080- 
00099 cleared automatically 



In addition to the A and B operands, representing the addresses of the dividend 
and divisor, the divide macro-instruction requires two additional operands; one 
specifies the number of zeros to be inserted to the right of the dividend ( Al oper- 
and) and the other, the shift factor needed by the subroutine (Bl operand). 
Specifically, 

A operand is core storage address of dividend. 

B operand is core storage address of divisor. 

Al operand is 00099 minus the number of zeros desired to the right of the 

units position of the dividend. 
Bl operand is 00100 minus the length of the quotient. The quotient must be 

at least two digits in length. 

Note: The quotient address after the division is executed will be equal to 00099 
minus the length of the divisor. 

Prior to the divide operation, the divide subroutine always resets to zeros 
(clears) the positions 00080 through 00099, the product area where the 20-digit 
quotient and remainder are developed. For the variable length mantissa subrou- 
tines, where L (length of mantissa) is greater than 10, the number of positions 
which are reset to zeros is equal to 99 — 2L. When the quotient plus the remainder 
exceeds the number of positions cleared to zeros, positions lower than the last posi- 
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Additional positions cleared 
by programming 



Macro may be used with 
any subroutine package 



Positioning of dividend 



High-order digit flagged 



Positioning of divisor 
for subtraction 



Quotient and remainder 
in product area 



Sign of result shown 
by indicators 



tion cleared must be reset to zeros by programming. One additional position should 
also be cleared to allow for a possible overdraw. For example, if 25 positions are 
required for the quotient and remainder in a fixed length mantissa subroutine, 
00074-00079 will have to be reset to zeros before the divide macro-instruction 
is given. 

The fixed point divide macro-instruction may be used with any of the sub- 
routine packages. Whenever it is used, the fixed point divide subroutine will be 
incorporated into the user's program. For the subroutine packages that are designed 
to work with automatic divide, the fixed point divide subroutine uses automatic 
divide in performing its operation. For the subroutine packages that are designed 
to work without the automatic divide feature, the fixed point divide subroutine 
performs its operation as instructed by the routine without the aid of the automatic 
divide feature. Coding of the macro-instruction is the same for all of the subrou- 
tine packages. 

Operation 

The product area (00080-00099) is automatically reset to zeros. The dividend (A 
address) is transmitted to the product area (Al address), beginning at the low- 
order dividend digit and terminating at the flag bit marking the high-order posi- 
tion of the dividend field. The Al address is 00099 minus the number of zero 
positions desired to the right of the dividend. 

The algebraic sign of the dividend is automatically placed in location 00099, 
regardless of where the rightmost dividend digit is placed by the Al address. A flag 
bit automatically marks the high-order digit of the dividend. 

The divisor (B address) is successively subtracted from the dividend. The Bl 
address of the divide macro-instruction positions the divisor for the first subtraction 
from the high-order position(s) of the dividend, as in manual division. The Bl 
address is determined by subtracting the number of digits in the quotient from 100. 
For the subroutines using program divide, the value of Bl must be between and 
99. For subroutines using automatic divide, the value of Bl is not restricted. 

The quotient and remainder replace the dividend in the product area. The 
address of the quotient is 00099 minus the length of the divisor. The algebraic 
sign of the quotient (determined by the signs of the dividend and divisor) is auto- 
matically placed in the low-order position of the quotient. The address of the re- 
mainder is 00099 and a flag bit is automatically placed in that position. The re- 
mainder has the sign of the dividend and the same number of digits as the divisor. 

The high/positive indicator is on if the quotient is positive and not zero; the 
equal/zero indicator is on if the quotient is zero. Neither indicator is on if the 
quotient is negative. 

The quotient must be at least two digits in length. One position is required 
for the sign and one for the field mark (flag bit). 

Examples 

1. The macro-instruction 

DIV A, B, 99, 96 
will perform the division for 0273 )3972 and store the result 0014 in stor- 
age location 00092 through 00095. 

2. The macro-instruction 

DIV A, B, 96, 93 
will perform the division for 0273 )3972.000 and store the result 0014.549 
in storage locations 00089 through 00095. 

Note: In both examples (1 and 2), A represents the_ address of the dividend 3972 
and B represents the address of the divisor 0273. 
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Overflow 



Loss of one or more 
high-order digits of the dividend 



Incorrect termination 

(for subroutines which use the 

automatic divide feature) 



Incorrect Positioning of Divisor 

The following error conditions are caused by an incorrect Bl address. 

An incorrectly positioned divisor can cause more than nine successful sub- 
tractions and an incorrect quotient. The divide operation is terminated, the Over- 
flow indicator and Overflow Arithmetic Check light are turned on, but processing 
will not stop unless the Overflow Check switch is set to stop. 

The high-order digit of the dividend is assumed by the 1620 to be one position 
to the left of the high-order digit of the divisor. The high-order digits of the divi- 
dend are lost if the divisor is positioned too far to the right. Processing continues 
with no indication of an incorrect quotient. 

If the B address is less than 10000, i.e., between 00100 and 09999, the divide 
operation will terminate when a subtraction occurs at 0XX99. This, in effect, 
restricts the size of the dividend to 10,020 digits if only 20,000 positions of core 
storage are installed. 

Average Execution Time 

Fixed length and variable length with automatic divide 
Average time (in ms ) = 980 + .040 ldvd + 

( .520 ldvh + .740 ) ( 100 - Bl ) 
where ldvd is length of the dividend field, 

ldvh is length of the divisor field, and 

Bl is value specified in macro-instruction. 

Note: Multiply 3.2 times the result to find the average execution time for the 
fixed length and variable length subroutines without automatic divide. 

Floating Shift Right 
Macro-instruction 



3 S 



e&os 



Operands & Remarks 



AJ 



FSRS macro 



The effect of this macro-instruction is to shrink the mantissa by shifting it to the 
right and truncating the low-order digits. The A address is normally the units 
position of the mantissa. 

MMMMMMMMEE 



I 



units position 
of mantissa 



The B address specifies the digit of the mantissa which will become the low-order 
digit of the mantissa. 



1620/1710 Subroutines/Macro-instructions 61 



Floating shift 
right (contd.) 



Operation 

The field at the B address ( the portion of the mantissa to be retained ) is shifted 
right to the location specified by the A address. The exponent is not moved or 
altered. For example, the macro-instruction 

FSRS 00097,00093 

causes the mantissa 



30590011325701 

Storage Storage 
Address Address 
00093 00097 

to be shifted, producing the following result 

00003059001101 

t t 
Storage Storage 

Address Address 

00093 00097 



Vacated high-order positions are set to zeros. An existing flag at the A address is 
retained for algebraic sign; the field flag bit is transmitted with the high-order digit 
of the B field. 



Average Execution Time 

Fixed length and variable length 

Average time (in M s) = 4960 + 960L — 880 (A- 



-B) 



Floating Shift Left 
Macro-instruction 



Line 
3 S 


Label 

i i; 


Operation 

n is 


U 


10 


IS 


30 


35 


Operands & Remarks 
40 45 50 


55 


a 


45 


70 


?i 


fli',0 


^ 


F,SJ,j5 


A„ 


,Bfi, 

















































FSLS macro 



The effect of this macro-instruction is to expand the mantissa by shifting it to the 
left and filling the vacated positions with zeros. It is important to note that the B 
address is the low-order position of the field moved, and the A address is the 
high-order position of the resulting field. 
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Floating shift left (contd.) 



Operation 

The field at the B address, which is the low-order digit of the mantissa, is shifted 
left so that the high-order digit is moved to the location specified by the A address. 
The exponent is not moved or altered. For example, the macro-instruction : 

FSLS 00090, 00097 (g) 

causes the mantissa 

0011325701 

t t 

Storage Storage 

Address Address 

00090 00097 



to be shifted, producing the following result 



1132570001 

t t 

Storage Storage 

Address Address 

00090 00097 

An existing flag bit at the Q address is retained for algebraic sign; the field flag bit 
is transmitted with the high-order digit of the Q field. 

Average Execution Time 

Fixed length and variable length 

Average time (in ^s) = 6460 + 1520 (B - A) - 360L 

Transmit Floating 
Macro-instruction 



line 
J 5 


Label 


Operation 
13 IS 


16 30 


35 


30 


35 


Operands & Remarks 

<0 *S 50 


55 


60 


65 


JO 


?5 






T.F.L.S 































TFLS macro 



The B address refers to the low-order digit of the floating point field exponent, 
whereas the A address refers to the low-order position to which the field is trans- 
mitted. 

Operation 

The field at the B address is transmitted to the location specified by the A address. 
The B field remains unchanged in storage. Flag bits in the three low-order positions 
of the B field are also transmitted; starting with the fourth low-order position 
only one additional flag bit is transmitted, and it stops transmission. For the variable 
length subroutine, L must be <49, where L equals the number of mantissa digits 
in the field to be transmitted. For the fixed length subroutine, L must be < 19. 

Average Execution Time 

Fixed length and variable length 

Average time ( in /xs ) = 400 + 40L 
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Branch and Transmit Floating 
Macro-instruction 



Lin* 


Lobd 

t M 


Speralion 

12 IS 


ti X 


-» 


30 


35 


Operandi & ttmariu 
40 45 50 


55 


10 


«5 


n 


n 


0.1,0 




BX£S 































BTFS macro 



The B address is normally the low-order position of the floating point field ex- 
ponent, whereas the A address is the leftmost position of the next instruction to 
be executed. 

Operation 

The address of the next instruction is saved at a storage location equivalent to 
btfs + 78 and the field at the B address is transmitted to the A address minus one. 
The normal exit of a routine which is entered by a btfs is a branch back ( bb ) in- 
struction. The instruction at the A address is the next one executed. The B field 
remains unchanged in core storage. Any flag bits in the three low-order positions 
of the B field are transmitted; starting with the fourth low-order position only one 
additional flag bit is transmitted, and it stops transmission. 

Average Execution Time 

Fixed length and variable length 

Average time (in jus) = 2280 + 40L 

Floating Square Root 
Macro-instruction 



Line 
3 * 


Label 

i ti 


Dpemtion 

11 15 


14 m 


a 


30 ' 


35 


Operandi & Remarks 
40 4S » 


» 




u 


n 


n 


BiM 


■ 111! 


F,Sfi^ 


A.jfi , . 












































"^ 



FSQR macro 



The A and B addresses refer to the units position of the exponents of the fields. 
Operation 

The square root of argument B is extracted and the result, in floating point form, 
is stored at A. The argument, which must be in floating point form, is unchanged 
by the operation. 

The floating point square root subroutine accepts all numbers within the 
floating point range that are greater than or equal to zero. If the argument is less 
than zero, the subroutine executes a programmed halt. The operator has two 
options: 

1. Using the information found in the halt instruction, he may branch back 
to the main routine, or 

2. Continue the execution of the subroutine and compute the square root of B. 
Average Execution Time 

Fixed length 

Average time = 120 ms 
Variable length 

Average time (in M s) = 620L 2 + 9776L + 5328 
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Floating Sine 
Macro-instruction 



label Dperutiw 



F, s , m 



Operandi & Remorla 



A,, 3® i 



FSIN macro 



The A and B addresses refer to the units position of the exponents of the fields. 

Operation 

The sine of argument B is computed and the result, in floating point form, is stored 
at A. The argument must be in radians and in floating point form. The computation 
does not disturb the original value of the argument. 

The floating point sine subroutine accepts all numbers of floating range up 
to and including exponent 08 (fixed length mantissa) or L (variable length man- 
tissa). The operator may branch back to the mainline program as explained under 

SUBROUTINE ERROR MESSAGES. _ 

For arguments with exponents less than 03, the magnitude of the maximum 
truncation error in the mantissa of the result does not exceed 10- L . Accuracy in the 
mantissa of the result decreases as the size of the argument ( exponent of 03 or 
greater) increases. The operator has the option of branching back to the main 
program or proceeding with the computation. Any result so computed will contain 
an error that varies directly with the magnitude of the exponent. 

Average Execution Time (arguments less than 2-k) 
Fixed length 

Average time = 150 ms 
Variable length 

With automatic divide 

Average time (in M s) = 168L 3 + 3792L 2 + 13340L + 4708 
Without automatic divide 

Average time (in,*) = 1.9 [168L 3 + 3792L 2 + 13340L + 4708] 

Note: For all subroutines of this type, arguments greater than 2tt are reduced by 
subtractions of 2-n- until within range. Therefore, the time required to per- 
form these subtractions should be added to the average time required for 
an argument less than 2i?. 



Floating Cosine 
Macro-instruction 



FCOS macro 



Lob«l Opefalior 



TQO.S 



AJ 



Operands & Remarki 



The A and B addresses refer to the units position of the exponents of the fields. 

Operation 

The cosine of argument B is computed and the result, in floating point form, is 
stored at A. The argument must be in radians and in floating point form. The com- 
putation does not disturb the original value of the argument. 

The allowable range of the argument, maximum accuracy, etc., for the cosine 
subroutine are the same as those previously described for the sine subroutine. 



1620/1710 Subroutines/Macro-instructions 65 



Floating cosine (contd.) 



Average Execution Time 

Fixed length 

Average time = 155 ms 
Variable length 

With automatic divide 

Average time (in ^s) = 168L 3 + 3792L 2 + 13420L + 5228 
Without automatic divide 

Average time (in ^s) = 1.9 [168L 3 + 3792L 2 + 13420L + 5228] 

Floating Arctangent 
Macro-instruction 



Label Operation 



F,A,TN 



Operandi & Remarici 



FATN macro 



The A and B addresses refer to the units position of the exponents of the fields. 

Operation 

The floating point value of the arctangent of B is computed and the result stored 
at A. The argument must be in floating point form; the result in radians will be 
in floating point form. 

The arctangent subroutine accepts any number within the floating point range. 

During the evaluation of the arctangent of B, use will be made of the divide 
subroutine. 

The maximum truncation error in the mantissa of the result is ±10" L , except 
for results having an exponent less than or equal to 02 (E < 02). The maximum 
error for these results is ±1 in the (L + l)th decimal place. L = 08 for the fixed 
length mantissa. 

Average Execution Time 
Fixed length 

Average time = 260 ms 
Variable length 

With automatic divide 

Average time (in jus) = 168L 3 + 2996L 2 + 7792L + 7260 
Without automatic divide 

Average time (in/*s) = 1.9 [168L 3 + 2996L 2 + 7792L + 72601 

Floating Exponential (Natural) 
Macro-instruction 



lobe! Operation 



F.E.X, 



Operandi & Remarks 



A*J 



FEX macro 



Operation 

The A and B addresses refer to the units position of the exponents of the fields. 
The value of e B , where B is in floating point form, is computed and the result, also 
in floating point form, is stored at A. 
An input value that exceeds 

227.955924206n n ( 227955924206n n03) 

causes an exponent overflow and one which is less than 



Floating exponential 
(natural, contd.) 



-227.955924206n n ( 227955924206n n03) 

causes an exponent underflow. An exponent overflow or underflow causes the sub- 
routine to examine core storage position 401 to determine the course of action. 

For negative arguments, the subroutine uses the absolute value of the argu- 
ment to evaluate the function, and then finds the reciprocal value. 

For positive and negative arguments, the maximum truncation error in the 
mantissa of the result is ± 10 L . 

Average Execution Time 

Fixed length 

Average time — 160 ms 

Note: Add 70 to the average time if B is negative . 

Variable length 

With automatic divide 

Average time (in ^s) = 168L< + 35824L 2 + 15890L + 26418 
Without automatic divide 

Average time (in M s) = 1.9[168I/ + 35824L 2 + 15890L + 26418] 

Note: For a negative argument, add the result of 520L 2 + 1880L + 1480 to the 
average time. 

Floating Exponential (Base 10) 
Macro-instruction 



Operation 
13 1J 



|F,E,X1 



Operands & Remark* 



AJ 



FEXT macro 



The A and B addresses refer to the units position of the exponents of the fields. 

Operation 

The value of 10 B , where B is in floating point form, is computed and the result, 
also in floating point form, is stored at A. 

An input value which exceeds 98.9n n (989n n0_2) causes an_ex- 

ponent overflow and one which is less than — 98.9n n (989n n02) 

causes an exponent underflow. An exponent overflow or underflow causes the sub- 
routine to examine core storage position 401 to determine the next course of action. 

This subroutine handles negative arguments in the manner they are handled 
by the natural exponential subroutine. Maximum accuracy is the same. 

Average Execution Time 

Fixed length 

Average time = 145 ms 

Note: Add 70ms to the average time if B is negative. 

Variable length 

With automatic divide 

Average time (in p) = 168L 3 + 3656L 2 + 15414L + 24538 
Without automatic divide 

Average time (in/xs) = 1.9 [168L 3 + 3656L 2 + 15414L + 24538] 

Note: For a negative argument, add the result of 520L 2 + 1889L + 1480 to the 
average time. 
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Floating Logarithm (Natural) 
Macro-instruction 



1 S_ 



Label Operation 



FJW 



Operands & Remarks 



*.-p(S . 



FLIV macro 



The A and B addresses refer to the units position of the exponents of the fields. 

Operation 

The floating point value of the In B is computed and stored at A. Input arguments 
must be in floating point form. 

This subroutine accepts all arguments greater than zero within the floating 
point range. An input argument equal to or less than zero results in a programmed 
halt. A branch back to the main program can be effected as described under 

SUBROUTINE ERROR MESSAGES. 

Average Execution Time 

Fixed length 

Average time = 290 ms 
Variable length 

With automatic divide 

Average time (in /xs) = 168L 3 + 3440L 2 + 10530L + 12180 
Without automatic divide 

Average time (in ^s) = 1.9 [168L 3 + 3440L 2 + 10530L + 121801 

Floating Logarithm (Base 10) 
Macro-instruction 



Label Operation 



F.Iflfi 



Operands & Remark* 



A,, Big) . 



FLOG macro 



The A and B addresses refer to the units position of the exponents of the fields. 
Operation 

The floating point value of the log,„B is computed and stored at A. Input arguments 
must be in floating point form. 

This subroutine accepts all arguments greater than zero within the floating 
point range. An input argument equal to or less than zero results in a programmed 
halt. A branch back to the main program can be effected as described under 

SUBROUTINE ERROR MESSAGES. 

Average Execution Time 

Fixed length 

Average time = 305 ms 
Variable length 

With automatic divide 

Average time (in M s) = 168L 3 +3608L 2 + 11610L + 15108 
Without automatic divide 

Average time (in ^s) = 1.9 [168L 3 + 3608L 2 + 11610L + 15108] 
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Adding Subroutines 



Maximum, twelve subroutines 



Procedure 



The user may add from one to twelve subroutines to the floating point subroutine 
package for card or tape. Each new subroutine may use whatever number of oper- 
ands is specified by the programmer. The minimum number of operands allowed 
is two; however, both the A and B operands may be the same. 
To add a subroutine, it is necessary to: 

1. Insert library change card in operation code table of the sps processor deck. 

2. Write the subroutine in sps language with origin at 5000 (dohg 5000), keep- 
ing in mind certain factors regarding pick, mantissa length (L), and modi- 
fications with regard to the subroutine itself. 

3. Assemble and condense the subroutine. 

4. Discard the first two loader cards and the last seven table cards of the con- 
densed object deck. 

5. Prepare a header and a trailer card for the new subroutine deck, placing 
the header card in front of the new deck and the trailer card behind it. 

6. Insert the new subroutine in the existing subroutine deck. 

The procedure here described is for adding card subroutines; however, the 
final part of this section describes the additional steps required to convert the 
added subroutines to paper tape. 



Library change card 



Unique mnemonic operation 

code 



Format of library change card 



Inserting the Library Change Card 

For each macro-instruction added, a library change card must be prepared for 
insertion in the processor deck. These cards must be inserted immediately in front 
of the last nine cards of the processor deck. 

The programmer must assign a unique mnemonic operation code to each 
new macro-instruction. The code may consist of from one to four alphameric 
characters. Any of the following four codes, for example, would be acceptable. 

X 

MT 

MTX 

MTRX 

The mnemonic operation codes are punched into the library change cards, 
using core storage alphameric character coding (2 positions for each character). 
MTRX is punched as 54635967. Note that a flag must be punched over the leading 
digit. 

The format of the library change card is as follows : 
Columns 1-8 mnemonic operation code in alphameric character coding ( left- 
justified in the field ) . 
9-10 sequence number of subroutine, starting with 18. 

11 7. 

12 record mark ( 0, 2, 8 punches ) . 
13-62 blanks. 

63-64 01. 

65-69 address of leftmost location where data from columns 1-11 is to 
be stored. Note that column 65 must contain a flag. 
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Format of library change 
card (contd.) 



70-74 address plus 1 of rightmost location where data from columns 
1-11 is to be stored. Note that column 70 must contain a flag. 



Columns 

(contd.) 

75 blank. 

76 "" ( flag only ) . 

The address in card columns 65-69 for subroutine 18 (next number after 17 
Library subroutines) is 17374 and is increased by eleven for each subsequent 
subroutine. The address for tape sps is 16156. The address in card column 70-74 is 
17385, the same address as is used in 65-69, with an additional constant eleven 
added to compensate for the rightmost address. This address is 16167 for tape sps. 



Linkage 



Secondary linkage 



Sequence of events 
initiated by macro 



Provision necessary 

for more than two operands 



Writing the Subroutine 

When writing the subroutine, the programmer should be aware of the linkages that 
are generated by macros. Suppose the Floating Subtract macro-instruction 

FS A, B 
is used. The following linkage will be generated in the mainline program: 

TFM PICK +11, * + 23 

B SUBR 

DORG * - 4 

DSA A, B 

The branch is to the secondary linkage for the specific subroutine used ( in this 
case, Floating Subtract). The secondary linkage is generated by the subroutine 
processor at the time the subroutines are being relocated and punched into the 
object deck. Examples of secondary linkage are: 

1. SUBR TFM PICK + 402, ADDR 

B PICK 

2. SUBR TFM PICK + 402, ADDR 

B PICK + 104 

where addr is the address of the first instruction of the subroutine in question. 

This linkage moves the starting address of the subroutine (Floating Subtract) 
into pick to allow a later branch to the subroutine. Next, the secondary linkage 
branches to pick, pick moves the data contained in the A operand into Alpha and 
the B operand data into Beta. It also computes the return address to the mainline 
program and branches to the subroutine. After the subroutine is executed, the pro- 
gram branches back to the pick subroutine. 

The block diagram on the opposite page shows the sequence of events that 
occurs when the macro-instruction equivalence is encountered during execution 
of the object program. 

Note: When the A operand in the diagram is used in the computation, the sec- 
ondary linkage branches to pick, and when the A operand is not used in 
the computation (as in the functional subroutines), the secondary linkage 
branches to pick + 104, and the B operand alone is placed in Beta. 

Note also that if the macro-instruction contains more than two operands, 
arrangements must be made in the programmer's subroutine to store the B operand 
in a location other than Beta, because when the program re-enters the pick sub- 
routine to pick up the C operand, pick will automatically store it in Beta. The C 
operand should be stored in the same manner if the program is to return to pick 
up a fourth operand, because pick will place the D operand in Beta. 
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MAINLINE PROGRAM 
instructions 

macro e.g. FS A, B 
or FSIN A,B 




SUBR 

(Label) 


SECONDARY 
LINKAGE 

1 . Move address of subroutine 
itself (ADDR) into PICK. 

2. Branch to PICK or 
PICK +104 






NOXeranc 


used nrv. 
ration/^ 






^s£Ompu 
YES 






LINKAGE 

1 . Move address of A 
operand to PICK + 11. 

2. Branch to secondary 

linkage. 






PICK 
(Label) 


PICK 
SUBROUTINE 

1. Place A operand in Alpha 

I 

2. Place B Operand in Beta. 












instructions (continued) 














» 




SUBROUTINE 
ITSELF 

1. Use Beta (and Alpha) 
to compute result. 

2. Branch to PICK (again). 




1 


PICK 

(Label) 


PICK 
SUBROUTINE 

1. Move result from Alpha 
into A operand address of 
main line program. 

2. Branch to mainline program 













PICK address equivalents 



Listed below are certain pick address equivalents for fixed length and variable 
length subroutine decks, as well as for the subroutine deck which uses automatic 
floating point. The subroutine writer should be familiar with them to make use of 
pick when writing his subroutine. 



ADDRESS EQUIVALENTS 


DESCRIPTION 


FIXED 
LENGTH 


VARIABLE 
LENGTH 


AUTOMATIC 

FLOATING 

POINT 


PICK 

PICK + 104 
PICK + 140 
PICK + 414 
PICK + 416 
PICK + 482 

PICK + 711 
PICK + 743 


PICK 

PICK + 104 
PICK + 140 
PICK + 402 
PICK + 404 
PICK + 434 

PICK + 657 
PICK + 802 


PICK 

PICK + 24 
PICK + 60 
PICK + 174 
PICK + 176 
PICK + 194 

PICK + 417 
PICK + 562 


Entry for subroutines that use A operand data 
in the computation. 

Entry for subroutines that do not use A operand 
data in the computation. 

Re-entry to pick up additional operand (other 
than the A and B operands ) . 
Address of subroutine ( P address of instruction 
that branches to the subroutine). 
Re-entry from subroutines to store result of com- 
putation. 

Return address of mainline program (P address 
of instruction that branches to mainline pro- 
gram). 

Alpha (A operand data itself). 
Beta (B operand data itself). 
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Working areas and 
constants shared 



Results stored in Alpha 



Programmer sets flags 



There are various working areas for constants in the pick subroutine that may 
be used (shared) by the added subroutines. The programmer may refer to the 
subroutine program listing (provided with library package) to make effective 
use of the pick subroutine. 

The return address to the mainline program (pick + 482 for fixed length 
subroutines or pick + 434 for variable length subroutines) calculated by the pick 
subroutine is only correct if all operands associated with the subroutine have been 
processed. 

The computed result is always assumed to be stored in Alpha (pick + 711 for 
fixed length subroutines or pick + 657 for variable length subroutines). In addition, 
the result at Alpha is stored by the pick subroutine at the address specified by the 
A operand, prior to return to the mainline program. 

When writing the subroutine: 

1. A flag must be set over position O and/or O a of instructions where the P 
and/or Q operands are relative to the origin 05000, e.g., an instruction 
located at 05300, such as 



Programmer utilizes the 
pick subroutine 



Functions of PICK 



TF * + 23, * -1 

in machine language should be 260532305299, and the instruction should be 
written TF * + 23, * - 1, 01. If the P operand alone were relative, then 
only O would be flagged, as 

AM * + 18, 5, 07 

2. Since pick is a sub-subroutine common to all subroutines in the subroutine 
package, except mv, fsbs and fsls, it is to the advantage of the subroutine 
writer to make use of it. The listing of the appropriate pick subroutine 
(furnished with the library package) should be studied. Briefly, pick per- 
forms the following operations. It 

a. Moves the A operand into Alpha (exponent and mantissa). 

b. Moves the B operand into Beta (exponent and mantissa). 

c. Calculates the return address to the mainline program. 

d. Stores the computed result (which is in Alpha) back into the address 
of the A operand. 

e. Contains constants and storage areas that are common to other sub- 
routines in the package. 

The programmer will use instructions which make reference to the pick sub- 
routine (to both pick instructions and constants) in his subroutine. The subroutine 
relocator program must adjust these addresses to make them correspond to the 
actual addresses of pick in the object program. This adjustment is made by using a 
pseudo constant (dc statement). The constant does not become part of the object 
program; its only function is to indicate to the subroutine relocator program that 
the instructions which follow are to be modified. 

One statement can modify up to 25 instructions. Each instruction, whether or 
not it is to be modified, requires two digits in the pseudo constant, one for the P 
operand and one for theQ operand. The statement itself consists of three operands: 
the first specifies the length of the constant which may not be greater than 50 nor 
less than 2; the second, the actual constant; the third, the storage address of the con- 
stant. This address must be specified as an absolute value in the following form: 
00320 for a 20-digit constant, 00342 for a 42-digit constant, etc. The P and Q oper- 
and modifier constants follow. 
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Operand modifiers 



P AND Q OPERAND 

MODIFIERS 



1 

2 
3 
4 
5 
6 
7 
8 
9 



MODIFICATION 

No modification 

AddL 

Subtract L 

Add2L 

Subtract 2L 

Modify with respect to PICK, no L modification 

Modify with respect to PICK, add L 

Modify with respect to PICK, subtract L 

Modify with respect to PICK, add 2L 

Modify with respect to PICK, subtract 2L 



Example of modification 



The following example shows how a variable length mantissa subroutine may 
be modified, by use of modifier constants, to use three operands in its computation. 
Secondary linkage 1 is used in this example. 

The A operand data is stored in Alpha (pick + 657), and the B operand data 
is in Beta ( pick + 802 ) . Therefore: 



DC 6, 275050, 306 

SUBR TR GAMMA-1, 801, 

TFM 402, »+20, 17 

B 140 



Transmit Beta into Gamma 

Set up return address to added subroutine 

Go to PICK subroutine to obtain next operand 



Note: Intervening DORG statements and constants between instructions are never modified in 
this manner. 

Data from the last operand processed will be Beta (pick + 802). The maxi- 
mum number of operands allowed in secondary linkage 1 is two; however, the A 
and B operands may be the same. 



Insert subroutine 
Header and trailer cards 

Header card format 



Incorporating New Subroutines in the Subroutine Deck 

After a subroutine is written, it is assembled and condensed; the first two and last 
seven cards are removed from the object deck and discarded. These cards are re- 
placed by a subroutine header card and subroutine trailer card. The header card 
precedes the subroutine and is punched according to the following format. 

Preparation of Header and Trailer Cards 

Columns 1-4 Length of subroutine - 4 digits in the form xxxx 

5-13 Subroutine numbers ( each in two digits xx ) followed by a record 
mark; a subroutine may have up to four entrances represented by 
four different macro-instructions. 
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Header card 
format (contd.) 



Trailer card format 



Inserting new subroutine 
in subroutine deck 



2A 



25-43 



Columns 14-23 Number of storage positions (three digits xxx), between the sec- 
( contd.) ond (third and fourth) entrance(s) and the regular entrance of 

the subroutine. These 3-digit fields must be terminated by a 
record mark (for example, 1201864=). If the subroutine has only 
one entrance, a record mark should be punched in column 14. 
(zero) for subroutine deck without automatic divide; 1 for sub- 
routine deck with automatic divide; =+- for variable length sub- 
routine decks with divide or with automatic floating point; for 
variable length subroutines without automatic divide. 
The secondary linkage in machine language. The linkage con- 
tains two instructions, the second of which is always a branch 
(operation code 49). The operation code in the first instruction 
and the three addresses can be specified by the programmer. The 
breakdown of these columns is as follows: 

25-26 Two-digit numerical operation code for the first instruc- 
tion. Modification to the P and Q addresses is indicated by 
a flag or no flag on the first and second digit, respectively. 
A flag implies that the address is relative to the subroutine 
itself while no flag means it is relative to the pick sub- 
routine. 

P address of the first instruction, expressed as an incre- 
ment to pick or the subroutine. For example, pick + 23 
will be 00023 and subr 1+59 will be 00059. 
Q address of the first instruction, expressed as an incre- 
ment to pick or the subroutine. For example, pick + 23 
will be 00023 and subr 1 + 59 will be 00059. 
Operation code 49; a flag or no flag on digit 4 indicates 
modification to the P address with respect to the sub- 
routine or pick. 

P address expressed as an increment to pick or the sub- 
routine. 
Blanks. 
(zero). 

Sequence number (see sequence numbering of subroutines). 
The subroutine is followed by a trailer card punched with a 1 in column 76 (blanks 
in other columns ) . 

The new subroutine, together with its header and trailer cards, is inserted into 
the subroutine deck in front of the last card, which is identified by a record mark 
( 4= ) in column 76. 

The sps processor restoration deck which restores that part of the sps main 
processor destroyed by the subroutine processor program is behind the card with 
the record mark ( =j= ) in column 76. 



27-31 



32-36 



37-38 



39-43 



44-75 

76 

77-80 



Alternative to PICK 



Bypassing PICK 

The subroutine writer may, if he desires, bypass pick completely. He accomplishes 
this by setting up the secondary linkage on his header card (columns 25-43). 
Since the first linkage puts the address of the A operand in pick +11, the sec- 
ondary linkage can move it from there to any place in the subroutine itself ( and 
branch to the subroutine). This is what is done in the div, fsls, and fsrs sub- 
routines, where the secondary linkage is of the form 

TF ADDR+ 11, PICK+ 11, 
B ADDR, , 
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Header card 



Sample Problem Illustrating Header Card, Subroutine, and Trailer Card 

In this example the subroutine is to be inserted in the variable length subroutine 
deck without automatic divide. The Floating Branch and Transmit subroutine 
( btfs ) is used as the new subroutine, thus it is assumed that the subroutine deck 
contains no btfs subroutine. These examples are intended to show the header 
card coding, the modifier constants, the O 1 flag indicators associated with 
the new subroutine, and the trailer card coding. For each field of the header and 
trailer cards, the data contained in the field as well as a description of the data is 



Program requires 79 storage positions. 
Subroutine identifying number. 
Subroutine has only one entry point. 
Variable length subroutine without automatic divide. 
00402 00000 49 00104 These instructions correspond 

to the secondary linkage: 

TFM PICK + 402, ADDR 

B PICK + 104 

The P operands of the tfm and B will be modified by 
adding the address of pick when it is found. The Q oper- 
and of the tfm will be modified by adding the starting 
address of the btfs subroutine to it. 



given. 




Columns 1-4 


0079 


5-13 


17 4= 


14-23 


4= 


24 





25-43 


16 C 



Subroutine 



44-75: 

7C: 

77-80: 

DORG 
DC 



BTFS1 TF 



TF 



SM 



TF 



TF 



BT 



B 
DEND 



Blanks 



7000 



5000 

14, 05000005050500, 314 

* + 66, STORE + 6, 



* + 30, * + 54, 01 



+ 18, 3, 010 



BETA-2 



* -I- 30, STORE -I- 30, 



BETA 



The flagged 7 is the identifying number of the subroutine. 
The 000 is the card sequence number. 

Standard dorg statement for all subroutines. 
This statement provides the modifier digits 
for the seven instructions which follow. 
A flag over O,, indicates to the subroutine 
processor that the P operand must be modified 
with respect to the relocated addresses of the 
btfs subroutine. With respect to pick, the Q 
operand is modified by the second digit of the 
pseudo constant. 

The P and Q operands need only be modified 
with respect to the btfs subroutine. There- 
fore, the only modification required is flag- 
ging Oo and Oi. 

* +18 is modified with respect to its own 
subroutine. The Q operand needs no modifi- 
cation since 03 is wanted. The flag on Q.„ is 
needed in the computation. 
With respect to pick, the Q operand is modi- 
fied by the eighth digit of the pseudo con- 
stant. 

0„ flagged to modify * + 30 with respect to 
btfs subroutine. Q operand was previously 
modified. With respect to pick, the Q operand 
is modified by the tenth digit of the pseudo 
constant. 

With respect to pick, the Q operand is modi- 
fied by the twelfth digit of the pseudo con- 
stant. 

No modification. 
No modification. 



Trailer card 



Column 76 
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Procedure (summary) 



Incorporating new subroutine 
in existing subroutine tape 



Messages 



Adding a Subroutine to Tape SPS 

The steps required by the user to add a subroutine to the subroutine tape and 
include his macro-instruction mnemonic in the operation code table of the proces- 
sor are: 

1. Write the subroutine in sps language with origin at 5000 (dorg 5000). 
Certain factors regarding pick, mantissa length (L), and modification of 
the subroutine must be observed when writing the subroutine. 

2. Assemble the subroutine. 

3. Prepare the subroutine header data so that it may be entered at the key- 
board when called for by the tape modifier program. 

4. Load the tape modifier program. 

5. Process the subroutine tape and subroutine to be added, making the changes 
directed by the typed messages. In this operation the modifier program 
assists the programmer in combining his subroutine with the existing sub- 
routine to produce a new subroutine tape. 

6. Using the modifier program, process the processor program and make the 
changes required to include the new macro-instruction (mnemonic) in the 
operation code table. This procedure is also directed by typewriter mes- 
sages. 

Preparing a New Subroutine Tape 

The following procedure must be followed by the programmer in order to prepare 
the new subroutine tape. 

Load the tape modifier program 

1. Thread the modifier program. 

2. Key in 36 00000 00300 at the typewriter. 

3. Depress the release and start keys. 

When the machine halts, the operator then: 

1. Threads the existing subroutine tape. 

2. Depresses the start key. 

A message 

SET PROGRAM SWITCHES AND DEPRESS START 

will be typed. Program switch 3 should be turned on and all other program switches 
off. The start key should then be depressed. 

Note: If the operator fails to set the switch prior to depressing the start key, the 
message 

PROGRAM SWITCHES HAVE NOT BEEN SET 

will be typed out. The operator may again proceed by setting the switch 
and depressing the start key. 
After the subroutines have been copied onto the new tape, the message 

MARK LAST RECORD READ, REMOVE MAIN SUBR TAPE, 
NOW THREAD TAPE OF SUBR BEING ADDED 

appears at the typewriter. The operation specified by the message should be 
executed and the start key depressed. 

The message 

ENTER HEADER DATA 

is then typed out. If an error occurs while typing the header data, it can be cor- 
rected by manually branching to the previous Read Typewriter instruction. The 
address of this instruction may be determined by 
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Messages 



Incorporating OP codes 
in processor tape 



Messages 



1. Depressing the Release and Single Cycle keys, and 

2. Subtracting 12 from the address which is displayed in the mar register. 

A card image of the header card data must be entered at the typewriter, with 
zeros substituted for blank columns. This header data is prepared in the same man- 
ner as it was for the card system ( see header card format ) . The release and start 
keys are depressed to resume processing and to complete copying of the new sub- 
routine. The message 

RETHREAD MAIN SUBROUTINE 

is typed. The operator must be careful when rethreading the tape (previously 
marked ) to back up the tape by one record and resume reading with the last record 
read, prior to removing the main subroutine tape in order to add the new sub- 
routine tape. The start key is depressed. The machine stops with the reader no 
feed light turned on after the new subroutine tape is completed. 

If another tape is to be modified, the operator may ready the program by 

1. Turning program switch 4 on, 

2. Depressing the reset and start keys, and 

3. Turning program switch 4 off. 

Adding Macro-Instruction to Processor Tape 

The following procedure describes how the tape modifier program is used to 
update the processor operation code table to produce a new processor tape. 
If the modifier program is not in storage, it must be loaded. 

To load the tape modifier program : 

1. Thread the modifier program. 

2. Key in 36 00000 00300 at the typewriter. 

3. Depress the release and start keys. 

The operator then: 

1. Threads the sps tape processor, 

2. Turns program switch 2 on, and 

3. Depresses the start key. 

The message 

ENTER ADDITIONS TO OP CODE TABLE ONE AT A TIME. THE 
LAST ENTRY SHOULD BE FOLLOWED BY A RECORD MARK. 

will be typed. After each OP code entry of the new macro-instruction is entered at 
the typewriter, the release and start keys should be depressed. The data entered 
should consist of the following: 

1. Mnemonic operation code in alphameric character coding (left justified in 
the field). 

2. Sequence number of subroutine, starting with 18. 

3. 7 

The record mark which identifies the final mnemonic to be entered signals the 
modifier program to copy the processor program and insert the new mnemonic (s ) 
in the op code table. When this operation is completed, the program halts. 

No more than a total of twelve operation codes can be added to the op code 
table. If the operator tries to enter op codes in excess of 12, the following message 
will be typed: 

THE SPACE RESERVED FOR ADDITION OF OP CODES HAS BEEN 
FILLED. THE FOLLOWING HAS NOT BEEN INSERTED XXX XXX 
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where XXX represents an op code that cannot be added to the table. The tape 
modifier will only add those op codes up to twelve. 



Switches for 
modifier program 



Summary of Program Switches for the Tape Modifier Program 

Turn on: 

Switch 1 to modify the two-pass processor for additional storage (see that 

section ) . 
Switch 2 to add op codes to the processor op code table. 
Switch 3 to add subroutines to the subroutine tape. 
Switch 4 to correct a typing error which is made while entering the memory 

size or an op code. Depress release and start keys, turn switch off 

and re-enter data. 



Note: It is possible to run with both switches 1 and 2 on. This operation allows the 
programmer to modify the processor for additional storage and at the same 
time to add op codes. 
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Functions of pass 1 



Functions of pass 2 



Operation code table 



Increasing size of symbol table 



Variable length 



Format 



1620/1710 Two-Pass Processor Program 



Organization 

The sps processor, which is available in card or paper tape form, is a two-pass pro- 
gram. The source program, written in the language described, furnishes the input 
for both passes. The functions of pass 1 and pass 2 are listed below: 



Pass 1 



1. Checks for valid mnemonic operation codes, Invalid operations are con- 
sidered nops and are processed as such if program switch 2 is off. 

2. Processes symbolic labels and prepares a table of the symbolic labels and 
their assigned addresses for use in the second pass. 

3. Assigns storage positions to instructions, work areas, and constants. 

4. Performs checking necessary to produce error messages. 

Pass 2 

1. Processes operation codes. Converts mnemonic program operation codes to 
their corresponding 1620 machine language codes. 

2. Processes operands according to the type of operation code. Looks up as- 
signed addresses and symbolic operands in the symbolic table prepared 
during pass 1. Performs address adjustment, if necessary, to complete the 
operands. Sets flags in the assembled instruction, as specified by the flag 
indicator operand. 

3. Types error messages for those statements that cannot be assembled prop- 
erly. 

4. Prepares the assembled output and lists the symbol table, if desired. 

Storage Layout 

The storage layout of the sps processor is shown in Figure 3. The operation code 
table contains all valid mnemonic operation codes and their equivalent machine 
language codes. Any alterations to the processor will change the addresses shown 
in this figure. 

If additional storage (ibm 1623 Storage Unit) is available, it may be used to 
increase the size of the symbol table ( shown in Figure 3 ) to accommodate a greater 
number of symbols. If the size of the symbol table is to be increased, the sps 
processor program must be modified by the user. Modification techniques are ex- 
plained under special procedures for the two-pass processor. 

Symbol Table 

A variable length label entry is used to store as many labels as possible in the area 
reserved for the symbol table. Each label when stored takes the following form: 



N 



Head 
Char- 
acter 
H 



-Variable Length Label - 



L, 



4r- 



L„ 



Associated 
Address 

A I A A A A 



Storage Positions 



where N = number of characters in label plus head character ( 2-6 ) 
H = head character ( two-position alphameric coding ) 

L L n = five characters of label (two-position alphameric coding) 

AAAAA = assigned address ( five numerical positions ) 

Note: The rightmost position of L n contains a flag for any true 6-character label. 
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Storage 
Addresses 




Card 


Tape 


Arithmetic Toblc, 


00000 

00401 
00402 


00000 

00401 
00402 




Input/Output Areas, 






Work Storage, 






Constants 








01779 
01780 


01755 
01756 




Processor 






Program 








15403 
15404 


14395 
14396 


Input/Output Areas, Work Storage, 


Constants 


15844 
15845 


14626 
14627 




Operation Code Table 






(Mnemonics) 








17516 
17517 


16342 
16343 




Symbol Table 








19980 


19911 



Figure 3. Storage Layout of 1620/1710 sps Processor 



Storage for minimum and 
maximum size labels 



Treatment of head character 



Capacity of label table 
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A label entry will always contain N, H, and A data and at least one L character. 
Therefore the minimum size label ( one character ) will require 10 storage positions. 
Each additional L character will use two additional storage positions up to eight 
positions. The maximum size label (5 or 6 characters) will require 18 storage 
positions. 

A six-character label is stored without a head character and the leftmost character 
of that label occupies the head character ( H ) storage position. For the six-character 
label, a flag is placed in the rightmost position of L n so that the processor may dis- 
tinguish between a 5-character label with a head character and a true 6-character 
label without the head character. When a label which is not preceded by a head 
statement is placed in storage, the head character ( H ) will be assigned as blank by 
the processor. 

Because the maximum number of labels allowed cannot be specified due to 



Formula for determining 
capacity 



variable length symbols, the following formula may be applied to find the allowable 
number of symbols ( within + 1 or — 1 ) for any given source program. 



e = 5 

^ L e (8 + 2e) 
e= 1 



+ 18L„ 



where K = 19980 (standard capacity) minus address of symbol table (17517 card, 
16343 tape) 

e — number of characters in label 

L e = number of labels of length'V 

L 6 = number of six-character labels 

Note: K should be increased by 20,000 or 40,000 when the processor is modified 
to accommodate 40,000 or 60,000 positions of storage, respectively. 



Paper tape or typewriter input 



Order of items on output tape 



Paper Tape Processor Program 

The paper tape processor program accepts input for the first pass in either paper 
tape form or directly from the typewriter, depending upon the setting of the pro- 
gram switch. If the typewriter is used to enter the source statements, the processor 
produces a source program tape to be used as input for the second pass. 

When subroutines are used in the source program, the subroutine program 
paper tape must follow the source program as input for the second pass. 

Output from the second pass may include an object program tape and/or a 
typewriter listing. Error messages indicating errors in the source program are typed 
out during pass 1 or pass 2. The programmer has the option of correcting these 
errors either as indicated or after assembly is finished. 

Format of Output Tape 

The output tape produced by pass 2 contains the assembled machine language 
instructions, constants, and other data that are part of the object program. Loading 
instructions appear at the beginning of the object tape followed by the object 
program, selected subroutines, and multiplication and addition tables ( condensed 
form) in that order. A complete self-contained program tape is produced, ready 
to be entered in the 1620 or 1710. 
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TAPE SPS 



PASS I 



Coding Sheets 

(Source 

Statements) 



INPUT 



Source J 
Program f 




I 



Keyboard 
Input 



Processor 
Program 



7 



(Must Load First) 



1620 



OUTPUT 



Error 

Messages 

(Typewriter) 



PASS 2 

INPUT 



OUTPUT 




Card or typewriter input 



Card Processor 

Input may be from cards or the typewriter. If the typewriter is used, a source pro- 
gram card deck is punched as output for pass 1. This card deck becomes the input 
for pass 2. Error messages are typed out for both passes. Affected statements may 
be corrected when the message is noted or at the completion of pass 2 after all 
messages have been recorded. 

The input for pass 2 is the source program deck followed by the subroutines, 
provided they are used. The typewriter output from this pass may consist of the 
object program with error messages, or error messages only, as determined by the 
program switch setting (see Table 17). 
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Table 17. Operation of Program Switches for the Paper Tape Processor and 
the Card Processor for Passes 1 and 2. 



SWITCH 



PASS 1 



ON 



For the paper tape processor, when 
input is from the paper tape reader. 

For the card processor, when input 
is from the card reader. 

The machine stops after an error 
message has been typed, so that a 
corrected statement can be entered 
at the typewriter. 



OFF 



Turn on to correct a typing error, 
made while entering a statement, and 
depress release and start keys, ' 



When input is from the 
typewriter. 



Processing continues 
after an error is typed, 
but the error is adjusted 
by the processor as indi- 
cated under ERROR 
CORRECTION. 

For the card processor, 
switch must be off. 



•then off, and re-enter the 
entire statement at the 
typewriter. 

Should be off when SPS' 
processor is assembling 
data. 



PASS 2 



ON 



When on, the entire in- 
put statement together 
with the assembled ma- 
chine language instruc- 
tion is typed out. 

Same as pass 1. 



For the card processor, 
when the object program 
is to be in condensed 
form. (This switch should 
be on when pre-editing 
the source program.) 

When on, no object pro- 
gram is punched except 
loader and arithmetic 
tables. (This switch 
should be on when pre- 
editing the source pro- 
gram^ 



OFF 



When off, no typeout of 
listing. 



Same as pass 1. 



For the card processor, 
when the object program 
is to be in uncondensed 
form. 



When off, the object pro- 
gram is punched. 



Condensed or uncondensed 
output (2nd pass) 



Both contain loader and 
arithmetic tables 



An object program card deck is produced in condensed form or uncondensed 
form, depending upon the setting of the program switches (see Table 17). The 
condensed card contains up to five machine language instructions, thus requiring 
fewer cards than the uncondensed version, which has multiple cards for each 
statement. Immediately after an uncondensed object deck is obtained from pass 2, 
the programmer may get a condensed deck by processing the source cards a third 
time (pass 3) as described under operating procedures. If the programmer 
chooses to bypass the extra pass ( pass 3 ) , he may at some later time get a condensed 
deck from an uncondensed deck as described under condenser program. 

Both the condensed and uncondensed card decks are complete with loader 
and arithmetic tables. The uncondensed deck contains both symbolic and absolute 
information, but only absolute data is loaded. 

Format of Output Deck 

The object program is preceded by two loader cards and followed by seven cards 
that perform the following: 

1. Interrupt the loading sequence of the object program. 

2. Load the arithmetic table. 

3. Branch to the start of the object program or to halt. 

Uncondensed Object Program Deck 

To facilitate control panel wiring of a 407 for an off-line listing of the uncondensed 
deck, the individual card format of each statement is given. The number of cards 
per statement may range from one to several, depending on the type of operation 
(imperative, declarative, control, macro-instruction, comments) or type of indi- 
vidual statement. For the send or head statements, no output cards are produced. 
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PASS I 



INPUT 



OUTPUT 



CARD SPS 



Coding Sheets 

(Source 

Statements) 



/l 



Source Program 



A 



Processor 
Program 



• (Must • 
Load 
First) 




1620 



Error 

Messages 

(Typewriter) 



Keyboard 
Input 




. _ __ __ „__.j 



Program >|Q(rL.. B „ 
Sw 1 ' 



A 



Source 
Program 



PASS 2 

INPUT 




OUTPUT 



Imperative Operation Card Format 

Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 

6-10 high-order leftmost address where assembled instruc- 
tion is to be stored. 
11-22 assembled instruction. 

23 4= 
63-64 11. 
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Card 2. Columns 65-69 leftmost address where assembled instruction is to be 
(contd.) stored. 

70-74 rightmost address plus one, where assembled instruc- 
tion is to be stored. 
76 9. 
77-80 card number. 

Control Operation Card Format 

DORG, DEND 

DORG, DEND Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 
6-10 address specified. 

76 9. 
77-80 card number. 

TRA 

TRA Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 

6-10 leftmost address where instruction is to be stored. 
11-22 assembled instruction ( first instruction ) . 

23 =f= 
63-64 11. 

65-69 leftmost address where instruction is to be stored. 
70-74 rightmost address plus one, where instruction is to be 
stored. 
76 9. 
77-80 card number. 
Card 3. Same as card 2 (11-22 is second instruction). 

TCD 

TCD Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 
6-10 address specified. 

76 9. 
77-80 card number. 
Cards 3-9. Arithmetic tables. 
Cards 10-11. Loader program. 

Declarative Operation Card Formats 

DS, DSS 

DS, DSS Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 

6-10 rightmost address of field. 
13-17 field length. 

76 9. 
77-80 card number. 

Note: For the dss operation, columns 6-10 of card 2 contains the leftmost address 
of the field. 
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DAS 

DAS Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 

6-10 leftmost address plus one, of field. 
13-17 field length ( number of alphameric characters ) . 

76 9. 
77-80 card number. 



DSB 



DSB Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 

6-10 rightmost address of first element of array. 
13-17 element length. 

76 9. 
77-80 card number. 

DSA 

DSA Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Note : A card of this type is punched for each operand. 
Columns 1-5 page and line number. 

6-10 rightmost address where field is to be stored. 
13-17 field length ( constant 00005 ) . 
18-22 the 5-digit field ( address itself ) being stored. 

23 4= 
63-64 18. 

65-69 leftmost address where field is to be stored. 
70-74 rightmost address plus one, where field is to be stored. 

76 9. 
77-80 card number. 

DC, DSC 

DC ' DSC Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 

6-10 rightmost address where constant is to be stored. 
13-17 field length of the constant. 

76 9. 
77-80 card number. 
Card 3. Columns 1-5 page and line number. 

6-n the constant itself starts in column 6 and is terminated 
by a record mark ( =(= ) in the first column following the 
constant. 
63-64 06. 

65-69 leftmost address where constant is to be stored. 
70-74 rightmost address plus one, where constant is to be 
stored. 
76 0. 
77-80 card number. 
Note: For the dsc statement, columns 6-10 of card 2 contain the leftmost address 
where the constant is to be stored. 
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DNB 



DNB 

Card 



1. Same as source statement card with the exception of a in column 76 and 
card number in columns 77-80. 



Card 2. Columns 



Card 3. Columns 



1-5 
6-10 

13-17 
76 

77-80 
1-5 
7-n 



63-64 
65-69 
70-74 

76 
77-80 



(blank) is to be 



page and line number. 

rightmost address where constant 

stored. 

field length. 

9. 

card number, 

page and line number. 

the numerical blanks (coded 4, 8) start in column 7 

and are terminated by a record mark (=)=) in the first 

column following the constant. 

07. 

leftmost address where constant (blanks ) is to be stored. 

rightmost address plus one, where constant is to be 

stored. 



card number. 



DAC 



DAC 

Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 

6-10 leftmost address plus one, where constant is to be stored. 
13-17 field length (number of alphameric characters). 

76 9. 
77-80 card number. 
Card 3. Note: A constant that contains over 25 characters causes two cards to be 
punched in this format. Up to 25 characters may be punched on 
each card. 
Columns 1-5 page and line number. 

6-n the constant itself starts in column 6 and is terminated 
by a record mark (=(=) in the first column following the 
constant. 
63-64 06. 

65-69 leftmost address where constant is to be stored. 
70-74 rightmost address plus one, where constant is to be 
stored. 
76 0. 
77-80 card number. 



Macro-instruction Operation Card Format 

Card 1. Same as source statement card with the exception of a in column 76 and 

card number in columns 77-80. 
Card 2. Columns 1-5 page and line number. 

6-10 leftmost address where first linkage instruction is to be 
stored. 
11-22 assembled instruction. 

23 4= 
63-64 11. 
65-69 leftmost address where instruction is to be stored. 
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Card 2. Columns 70-74 rightmost address plus one, where instruction is to be, 

(Contd.) stored. 

76 9. 

77-80 card number. 
Card 3. Same as card 2 ( second linkage instruction ) . 
Card 4. Note: A card of this type is punched for each operand. 

Columns 1-5 page and line number. 

6-10 leftmost address where field is to be stored. 

13-17 field length ( constant 00005 ) . 

18-22 the address itself (5-position field) to be stored. 

23 4= 

63-64 18. 

65-69 leftmost address where field is to be stored. 

70-74 rightmost address plus one, where field is to be stored. 

76 9. 

77-80 card number. 

Comments Card Format 

Card 1. Same as source statement with the exception of a in column 76 and card 

number in columns 77-80. 
Card 2. A digit 9 in column 76 and card number in columns 77-80. 

Listing the Uncondensed Object Deck 

Figures 4A and 4B show control panel wiring diagrams designed for fisting an 
uncondensed object program on the ibm 407 and on the ibm 407-E8. 

Condensed Object Deck 

Condensed cards are punched as described under the particular card type. 

Card Containing Instructions 

Columns 1-12 
13-24 
25-36 
37-48 

49-60 five instructions. 

61 =(= (record mark). 

62 0. 
63-64 01. 

65-69 leftmost address where instructions are to be loaded. 

70-74 rightmost address plus one, where instructions are to 
be loaded. 

76 (flag only). 

77-80 card number. 

Card Containing Constants 

Columns 1-61 constants may be from 1 to 60 characters followed im- 
mediately by a record mark (=f=). 
62 1. 
63-64 01. 

65-69 leftmost address where constants are to be loaded. 
70-74 rightmost address plus one, where constants are to be 
loaded. 
76 (flag only). 
77-80 card number. 
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Figure 4 A. 407 Control Panel Wiring Diagram for Listing Uncondensed Output 



Switch settings, Table 17 



Program Switches 

Before processing the source statements, it is necessary to set the program switches 
to control processor functions, such as form of input used, action to be taken when 
an error is detected, and form of output generated. See Table 17 for an explanation 
of the operation of the program switches. 

Error Messages 

The error message codes that may be typed out on the typewriter during pass 1 
and/or pass 2 of an assembly are listed in numerical sequence. 



ERROR 
MESSAGE 
CODE 
ER1 

ER2 

ER3 
ER4 



DESCRIPTION OF ERROR 

A record mark is in the label or operation code field. 

For address adjustment, a product greater than ten digits has resulted from a multi- 
plication. 

An invalid operation code has been used. 

A dollar sign, which is being used as a head indicator, is incorrectly positioned in an 
operand. 
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Error Messages 
(contd.) 



Format of messages 



ER5 



ER6 
ER7 
ER8 



ER9 

ER10 

ER11 

ER12 

ER13 

ER14 



a. The symbolic address contains more than six characters. 

b. The actual address contains more than five digits. 

c. An undefined symbolic address or an invalid special character such as close or 
open parentheses ) ( is used in the operand. 

A dsa statement has more than ten operands. 
A dsb statement has the second operand missing. 

a. A dc, dsc, dac, or dnb has a specified length greater than 50. 

b. A dc, dsc, or dac statement has no constant specified. 

c. A dc or dsc has a specified length which is less than the number of digits in the 
constant itself. 

d. A dac statement as a specified length not equal to the number of characters in 
the constant itself. 

The symbol table is full. 

A duplicate label is defined ( defined more than once ) . 
An assembled address is greater than five digits. 

An invalid special character is used as a head character in a head statement. 
A head statement operand contains more than one character. 

A label contains all numerical characters or an invalid special character. The eight 
invalid special characters are: 
blank) +$•-,( 



Error messages take the following general form, 

LABEL 



adjustment 
count 



error 
code 

ERn 



xxxxxx + xxxx 

where label refers to the last defined label and the "adjustment count" refers to 
the number of statements between that label and the statement in error. If the first 
statement of a source program contains the label start, and the second statement 
has an error "ER1," the following message will be typed: 

START + 0001 ER1 

If the second statement has the label xyz, the message still would appear as 
start + 0001, not as xyz + 0000. 

The messages will appear in the form just shown during pass 1 or pass 2, if pro- 
gram switch 1 is off. If program switch 1 is on during the second pass, only the 
error code "ERn" will be typed opposite the statement in error, at the right-hand 
side of the page. 



Alternative procedures for few 
or many errors 



Errors detected both passes 



Processor stops 
after an error 



Error Correction 

As stated earlier, each erroneous statement can be corrected individually after the 
error message is typed and the machine is stopped, or all statements containing 
errors can be corrected after the object program is assembled. If there are few 
errors, the first procedure may be advisable; where there are many errors, it is ad- 
visable to correct the source deck at the end of the run and reassemble the program. 
Some errors in source statements entered from cards or tape on pass 1 are de- 
tected during that pass and, because the same input is used for both passes, will be 
detected again during pass 2. Therefore, they are corrected twice. Most errors in 
source statements entered from the typewriter on pass 1 are corrected during that 
pass. They do not have to be corrected during pass 2, since the output of pass 1 
becomes the input to pass 2 and contains the corrected statement. 

Program Switch 2 On 

With program switch 2 on, the processor stops after typing the error message and 
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Figure 4 B. 407-E8 Control Panel Wiring Diagram for Listing Uncondensed Output 
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the carriage returns. The operator enters the corrected statement and depresses 
the release and start keys. 

Program Switch 2 Off 

Processor continues With program switch 2 off, the processor does not stop for an error; errors are 

after an error corrected after assembly. However, errors affect the assembly process as indicated 

in the following list. 

ERROR 

CODE ASSEMBLY PROCESS 

ER1, ER3 A nop instruction, 410000000000, is assembled. The label is treated as 

a blank. 
ER2, ER4, ER5, ERllThe operand is assembled as 00000 (zero) address. 
ER6 The first ten operands are assembled; those over ten are ignored. 

ER7 The statement is assembled in the same manner as a ds statement with a 

length of 50. 
ER8 If the operation code is : 

dc — it is assembled in the same manner as a ds statement with a length 

of 50. 

dsc — it is assembled in the same manner as a dss statement with a length 

of 50. 

dac — it is assembled in the same manner as a das statement with a length 

of 50. 

dnb — it is assembled as a dnb with a length of 50. 
ER9, ER10, ER14 The label is treated as blank. 

ER12 The head character is replaced by a blank character. 

ER13 The nrs t non blank character specified in the operand is used as the head 

character. 



Operating Procedures 

Typewriter 

With program switch 1 on, the typewriter types each statement, starting at the left 
margin. After the last character is typed, the typewriter carriage returns and 
then tabulates to the place where typing of the storage address and assembled in- 
struction should begin. Statements are typed in the format in which they are en- 
tered; however, a space is inserted before and after the operation field. 
To set up the typewriter, the operator must: 

1. Set margins to the extreme right and left positions. 

2. Set a tab stop in a position that is located a few spaces to the left of the 
longest statement. 

Switches 



Both the parity switch and I/O switch should be placed in stop position; the over- 
flow switch in program position. Program switches for controlling the processor 
should be set as outlined in Table 17. 

Note: The 1711 ADC unit should be turned off during assembly on a 1710 system. 
Loading the Processor 

PAPER TAPE PROCESSOR 

1. Thread the processor tape. 

2. Depress the reset and insert keys. 

3. Enter 360000000300 from the typewriter. 

4. Depress the release and start keys. 
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CARD PROCESSOR 

1. Depress the reset key ( console ) . 

2. Place the processor deck in the read hopper. 

3. Depress the load key ( reader ) . 

4. If the processor is not followed by two blank cards, the reader start key 
must be depressed to complete the loading. 

Note: After the processor is loaded, 48 will appear in the operation register. 

Processing the Source Program 

PASSl 

Pass 1 After the processor is loaded, the program halts. Processing begins with the reading 

of the first statement of the source program. 

Paper Tape Input. 

1 . Thread the input tape ( source program ) . 

2. Depress the start key. 

Typewriter Input. 

1. Type statement and end with a record mark ( =j= ) . 

2. Depress the release and start keys. 

3. Repeat steps 1 and 2 until all statements are entered. 

Card Input. 

1. Place source program card deck in read hopper. 

2. Depress reader start key. 

3. Depress start key ( console ) . 

The message "end of pass 1" is typed out at the completion of pass 1 before 
the machine halts. 

pass 2 
Pass 2 The source program in card or paper tape form that is used as the input to pass 1 

is also the input to pass 2. Source statements entered at the typewriter during 
pass 1 are the output of pass 1 and the input to pass 2. 

Paper Tape Input. 

1. Thread the input tape ( source program ) . 

2. Set program switches for pass 2 ( see Table 17 ) . 

3. Depress the start key. 

Card Input. 

1. Place the input cards (source program) in the read hopper. 

2. Set program switches for pass 2 ( see Table 17 ) . 

3. Depress the reader start key and punch start key. 

4. Depress the start key. 

After pass 2 is completed, the message "load subroutines" is typed out if 
subroutines are required by the source programs. If the subroutines are not re- 
quired, the message "end of pass 2" is typed and the symbol table is printed. 
Note: If the operator wishes to branch to the entry point of either pass 1 or pass 2, 
he must refer to the program listing ( included in the program package) to find the 
absolute addresses. The symbolic name for the entry point of pass 1 is initi; for 
pass 2 it is initi + 12. 

Loading the Subroutine. 

To load paper tape subroutines: 

1. Thread the subroutines. 

2. Depress the start key. 
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Enter mantissa length 



Typeout of symbol table 



Format of typeout 



Asterisk indicates six-character 
label 

Assembling further 
source programs 

Condensed deck after pass 2 



To load card subroutines: 

1. Place the subroutine card deck in the read hopper. 

2. Depress the reader start key. 

3. Depress the start key. 

An error that occurs while the subroutines are being loaded cannot be cor- 
rected by manual intervention because any information inserted in locations 00000- 
00099 will cause erroneous address modification. 

If the subroutine being loaded is a variable length subroutine, the message 
"enter mantissa length" is typed and the machine halts. The operator enters the 
2-digit_mantissa length from the_ typewriter. This 2-digit number may range from 
02 to 45. A mantissa length of 08 does not have to be entered. The release and 
start keys are depressed to resume processing of the subroutines. It is the pro- 
grammer's responsibility to enter the number (length of mantissa) correctly. Pro- 
gram switch 4 may be used to correct an entry made in error (see program 
switches ) . 

Only those subroutines used by the source program are punched out as part 
of the object program. After the subroutines are processed, the message "end of 
pass 2" is typed out followed by the symbol table. The operator may suppress the 
symbol table typeout by turning program switch 4 on while the message "end of 
pass 2" is being typed. If switch 4 is turned on while the symbol table is being 
typed, the typeout is terminated and the program halts. 

When the symbol table is typed, the labels and their associated addresses 
are typed, five to a line. The format of each label is as follows: 



associated 
address 

xxxxx 



label 

*xxxxxx 



where the leftmost position of the label contains the head character (assigned 
either by the processor or the programmer). Any true six-character label is indi- 
cated by an asterisk in the position next to the label. In this case, all six characters 
of the label are true label characters without a head character. 

If at the end of passes 1 and 2, it is desired to assemble other source programs, 
this can be done without reloading the processor. 

After pass 2 is completed by the card processor, the programmer may obtain 
a condensed object program deck by : 

1. Turning console program switch 3 on. 

2. Placing the source cards in the read hopper. 

3. Depressing the reader start key and punch start key. 

4. Depressing the start key. 



No listing made or object 
program punched during pre-edit 



Switch settings 



Pre-editing the Source Program 

In some instances where a large source program is to be assembled, the programmer 
may choose to perform a pre-edit prior to assembling the object program. For a 
pre-edit, normally only error messages are typed for passes 1 and 2 and no listing 
is typed or object program is punched. However, the two loader cards and arith- 
metic tables are punched but they can be discarded. For this reason pre-edit data 
may be obtained in less time than is required for normal assembly. The error listings 
from the pre-edit enable the programmer to correct the source progam prior to 
assembling the object program. 

The operating procedure is the same for passes 1 and 2 as that described 
earlier for normal assembly of an object program except that program switches 3 
and 4 (see Table 17) must be on during the second pass. 
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Special Procedures for the 1620/1710 Two-Pass Processor 



This section describes three special procedures or routines that may be used with 
the two-pass processor. These routines are not a part of the processor itself but are 
additional aids for the sps user. The first routine provides a method of making 
changes to a condensed object deck without need to reassemble the source pro- 
gram. The second routine modifies a tape or card processor to allow it to use addi- 
tional storage and the third routine describes the condenser program that is used 
to condense an uncondensed object deck. 



Patching 



Condensed Object Deck Alterations 

While testing an object program, it is often necessary to change or patch some of 
the original instructions. To do this, the sps source deck and the condensed deck 
must be updated each time an instruction is changed. If the sps output is an un- 
condensed deck that is later condensed, it is necessary to update three card decks 
(the source, uncondensed, and condensed decks). The procedure described here 
provides an orderly, rapid, and accurate means of correcting the source program. 



Instruction in 
Machine Language 


SPS 


Actual 

Machine 
Location 


Actual 
Machine 
Location 
+ 12 


Patch 

Number 


Page 


Line 


Label 


OP 
Code 


Operands 


Column 1-12 


14-15 


16-18 


19-24 


25-28 


29-61 


65-69 


70-74 


T8-80 
















































































































































































































































































One Instruction Per Card 

Patch Cards Are To Be Placed In Front Of The Last Seven Cards Of The Condensed Deck. 









Figure 5. Patch Card Coding Short 



Format of 
patch card 



Patch Card and Coding Sheet 

When an instruction requires correction, the corrected machine language instruc- 
tion as well as the sps coding should be recorded on a patch coding sheet. The 
coding sheet shown in Figure 5 or a similar coding sheet can be used for this pur- 
pose. Each entry on the coding sheet is punched into a prepunched patch card. 
The prepunched data is arranged on the patch card as follows: 
Columns 13 =#( 0, 2, 8 punches ) 



62-65 


001 


70 


" 


75 


blank 


76 





77 


9 
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Inserted in object deck 



Use of the Patch Cards 



Patch cards are placed in front of the last seven cards of the condensed object 
deck but no cards are removed or changed. The condensed object deck is loaded 
in the same manner as it was before the patch cards were added. 



Reproduce patch cards to 
correct the source program 



Corrections to the Source Program 

After the object program is tested, the source program deck can be corrected by 
selecting patch cards with a code 9 in column 77 from the object deck. Card col- 
umns 14 through 61 in the selected cards should be reproduced into columns 1 
through 48 of blank cards. The reproduced cards should then be inserted in page 
and line number sequence into the source program deck, and the cards that are 
being replaced should be discarded. 

Patch cards may then be returned to the condensed object deck or the source 
deck may be reassembled to produce a new object deck. 



Modifying the Two-Pass Processor for Additional Storage 

An sps paper tape processor or card processor can be modified to permit a larger 
symbol table when the system includes the ibm 1623 Core Storage unit. 

For the tape processor, a Modifier Program that duplicates the processor tape 
and allows the user to make the necessary changes is available. For the card 
processor, the program can be modified by changing a single card of the processor 
deck. 

After the processor has been modified to use a certain amount of storage, it 
should not be run on a machine that contains less storage; however, it may be run 
on a machine with greater storage capacity. 



Modify the Tape Processor 

LOADING THE MODIFIER PROGRAM 

1. Thread the Modifier Program. 

2. Depress the reset and insert keys. 

3. Enter 360000000300 on the typewriter. 

4. Depress the release and start keys. 

CHANGING THE PROCESSOR TAPE 

1. Thread the processor tape. 

2. Turn program switch 1 on. 

3. Depress the start key. 

4. The message "enter memory size" is typed out and the machine halts. 

5. Enter the storage capacity in thousands from the typewriter; that is "40" 
for 40,000 or "60" for 60,000. 

6. Depress the release and start keys. 

7. The program halts after the last record is copied. 

Note: If an additional tape is to be copied, repeat steps 1 through 6. 

Modifying the Card Processor 

1. Manually select the ninth card from the end of the processor deck. This 
card contains 0200004= in card columns 1-7. 

2. Prepare a new card, changing columns 1-7 so as to contain 0400004= for 
40,000 storage positions or 0600004= for 60,000 storage positions. 

3. Replace the old card in the processor deck with the new card. 
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Condenser Program 

An uncondensed object program deck may be condensed by using a separate, 
special condenser program. A condensed deck stores programs in fewer cards than 
an uncondensed deck, thus shortening the time required to load an object program 
into storage. The condenser program occupies core storage locations 15000 through 

17225. 

Operating Procedure 

Several decks may be condensed The condenser program deck is placed in the card hopper, followed by the un- 
fa succession condensed object deck. The program is loaded by depressing the reset and load 

keys. When loading is completed, the machine halts; depressing the start key (con- 
sole) causes the condenser program to begin execution. After the input is processed 
and a condensed output deck is produced, the machine again halts. Each additional 
input deck can be condensed by depressing the start key (console), thus causing 
the program to resume processing. 

Condensed Output Deck 

The first two cards of the condensed output deck are loader cards and the last 

seven are arithmetic table and control cards. In between these are the condensed 

Card format cards containing instructions or constants. The card format of the condensed object 

program deck is described in the 1620/1710 Two-Pass Processor section. 
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7090 Processor for Assembling 1620/1710 Programs 



Compatible with 1620/1710 
Exceptions 



The 7090 processor has been designed to operate on a 709 or 7090 with a minimum 
of 32,000 storage positions, two channels, and ten tapes. The processor runs under 
control of the ib sos Monitor. 

With few exceptions, the 7090 processor is completely compatible with the 
1620/1710 processor. 

1. Flagged Digits. Peripheral equipment cannot print flags in the program 

listing because of inherent machine limitations. Flagged digits appear as 

letters. Special attention should be paid to the letter "O" which is equivalent 

to a flagged 6, but could easily be mistaken for a zero. 

The following shows the value of the flagged digits and their equivalent 

symbols as they appear on an output listing: 



Magnetic tape input 
Identification card 



Flagged Digit 

(zero) 
1 

2 
3 
4 
5 
6 
7 
8 
9 



Equivalent Symbol 

— (minus sign) 

J 

K 
L 
M 
N 
O 
P 

Q 

R 



2. Diagnostics. The 7090 and 1620/1710 processors have different diagnostic 
procedures. Diagnostic messages are not listed here because of their num- 
ber. Each message indicates the type of error and the manner in which it is 
handled by the processor. 
Input data cards are of the standard sps format, as illustrated in Figure 2. 
Input to the 7090 processor is from tape only, prepared in an off-line card-to-tape 
operation ( ibm 714 or ibm 1401 ) . Each program to be assembled must be preceded 
by two cards. The first is an identification card containing the following informa- 
tion: 



Control card 



Columns 1 

2-72 



7, 9 combination punch 
identification data 



This data will be printed out as a header on each page of the printed output listing 
and may contain such information as the program name, programmer, date, etc. 
The identification card will also be punched out as part of the assembled output. 
The second card, a control card, contains: 

Columns 1 7, 9 combination punch 

11-12 mantissa length (02 to 45 digits) for variable length sub- 
routines only 



102 (Pages 98-101 deleted) 



Pass 1 



Pass 2 



Magnetic tape output converted 
to cards off-line 



1000 statements per minute 



Columns 14 subroutine type, 1 = fixed length subroutine without divide 

( contd. ) feature 

2 = fixed length subroutine with divide 

feature 

3 = variable length subroutine without di- 

vide or floating point features 

4 = variable length with divide feature 

and without floating point feature 

5 = variable length subroutine with di- 

vide feature and floating point feature 

15 format, blank = input/output in tape format 

non-blank = input /output in 1622 card format 

16 core size, 1 = 20,000 positions 

2 = 40,000 positions 

3 = 60,000 positions 

Each program must be followed by one blank card, and the last program 
must be followed by two or more blank cards. The final card of the deck, which is 
the control card for the ib sos monitor, must be a pause or stop card. 

The assembly requires two passes. The first pass generates the symbol table 
and the equivalent storage addresses. The symbol table accommodates a maximum 
of 3,000 symbols. All labels are checked for legality and unique definition. Declara- 
tive statements are checked to see that their length has been correctly specified. 
The original statement and computed data are written out on an intermediate tape. 

The second pass uses the information compiled by the first pass to complete 
the assembly. A listing of the original input data and the assembled instructions 
is written on tape to be listed off-line. All error messages detected during the first 
and second passes are printed out and precede the statement that is in error. These 
messages can be readily identified by five asterisks to the left of the statement. 

All undefined and doubly-defined symbols are printed out following the 
program listing. The symbol table is also listed. 

The assembled program is written on another tape for punching off-line. In 
the case of a tape machine, these cards, with the exception of the identification 
card, can be used on the ibm 063 or ibm 870 to produce the desired program tape. 
If the card machine is specified, the output cards can be entered directly into the 
1710. 

The 7090 processor will assemble approximately 1,000 sps statements per 
minute. 
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Appendix: Sample Program Prepared by 1620/1710 Processor 



This sample program 1 is written to demonstrate certain principles of statement 
writing and to show the assembly of instructions. It represents a numerical inte- 
gration program that calculates 

i 
J \/3x 2 arcsine x dx 

The area under the curve ^/3x ^ arcsine x is desired in the interval < x < 1. 

i 
AREA = j \/3x" 2 arcsine x dx 

The arcsine is computed using Hastings' approximation: 2 

arcsine x = -^ \/Tx • S (x) 

0<x <1 

Approximation : 

S ( x ) = a + a^ + a 2 x 2 + a 3 x 3 + a 4 x 4 + a r ,x 5 

a„ = 1.5707, 95207 a ., = -.0449, 58884 

ai = -.2145, 12362 a 4 = .0193, 49939 

a 2 = .0878, 76311 a „ = _.0043, 37769 

To facilitate programming on the 1620, the integral is computed by Simpson's rule: 

i . 

j"F(x)dx= -^ [Fo+F n +4(F 1 +F.,+ ... + F n _ 1 )+2(F 2+ F 4+ ...+F n . 2 )] 



where F(x) = ^* • [-|— yTx • S (x)] 

n is an even integer 

Ax=:L 

n 
F, = F(x,), i = 0,l,2, ...,n 
Xi =:i • Ax 

The source program coding sheets and the printed 407 output listing for this sample 
program are shown in Figures 7 and 8, which appear on subsequent pages. 



^Contributed by Dr. John H. Duffin, Engineering Department, San Jose State College, 1961. 
'Hastings, Cecil, Jr. The Rand Corporation^ Approximations for Digital Computers. Princeton 
University Press, Princeton, New Jersey, 1955, p. 161. 
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IBH 



1620/1710 Symbolic Programming System 
Coding Shoot 



fret , m . Numerical Integration (Sample Program) 



Pag* No. I 



Programmer: . 



Line 


Label 


3peraiion 


Operands & Remarks 
14 jo 75 30 35 JO « SO 55 40 *S 70 7 






*. .TflJS 


,P,RO 


GRA.M .C.O.MPUTE.S, .THE. .A.RE.A, .U.N.D.E.R, ,T.HE. .C.UBV.E. Sfi R.T.( ,3.X*»,2.) ,*,ARC.S.I ,N 


E,x(i 




*, ,WHE,R 


E. ,X 


L.I.E.S, .RE.TWEEN, ,0, .AND .1... .TH.E. .AREA IS. .CpMP.U.TEft ,B,Y. S.I M.P.S.O,N,S, fl.V 


L,Efl2 




*, ,FPP, 


N,UME 


RXCAI, ,I,N.T,E,GR 1 AT,I.O,N.., ,T,H,E, AREA, ,I,S. E.VA.L.UAT.EP, 


.U.S.I.N.G. J L H 1 R 1 E 1 E® , L , 


, , 






*, ,dif,f 


E,R,E,Ii 


T, ,V,A,LU,E,S, ,FOR. ,D,E,L,TA,X,. . .T,H,E,Y. A.RE, .0,. ,1,0,0., , ,0,. ,0.£ 


,0,,, .A.K.D, .0...0.2.5,. <E. , 










H&Efi 


1,7,3,2(^1 


. 




, , , 


. , , , 








S.TAE.T, 


TF , 


DE.LJAX,, ,X. ,7., ,T,RA,N,SM,I ,T, ,VA,L,U,E 


,0,F, l ippR,EME,N,TJ@ , 






■ iii 










rr, , 


AR,EA,..Z,-,3© 


















if, , 


Sx.SUBN,. ,U,NI,T(|1 






, • . 


. . i ■ 










TDM 


SW.3,+ ,1.. ,1 S£Ti SWa, ,0,F,Fi|) , , , 


i i . i i t i 1 i i ■ 




. ■ i 


i i i_j — i 








TDM 


SW,2,+.1..,1 SET, .SW.2, O.F.F© , . . 


^_ s _ j _^ 4 __ u _ A _ 




■ ■ i 


.... 










TDM 


SW.1.+.1...1 SE.T, ,SW.l, O.F.Flf) . . , 






■ ■ i 


.... 










TR. , 


A.S,TI.n,U-,9, CnNS,T.-9..,. TR.A.N.SM.IT 


.A.SIIB.S. T.O .A.SIJ.B0 tf. , . . .. ,_i_l. 


, i _j_, 


.... 










JTF. , 


PS, IX. .ASUBN© 










. . , 










ASINE, 


to, , , 


PS, I x,. .x,sub.n(e) 




_ j _ j _ i _ j 






. . , 


. , . . 










SF. , 


8.4(E) 




, 






. i . 


i t * .. — 










B,N,F, 


*,+ ,2,*l,.. ,9,9)® 






, ( , , 




i . i 












SF, , 


9,3@ , . 


> 


, , , 


, , i ■ i 1 i i 




i ■ i 


. , . , 










T.F, , 


P.sTx,. ,9,3(£) 










, . , 


L LI ...J — 










T,R, i 


AS,U,B,N.-,9,. A,S.UBN,+ ,liE) 




_j i 






i ■ > 


■ , . , 










A, , , 


P.S.I X„ ,A,SJJBW@ , , , , , 










, ■ i 


. . • ■ 






2,li0 




B,N,R, 


AS,I,N,E„ ,A,S,UBJJ,+ ,1© , , 










, ■ , 


. . i . 






2,2,0 






rn,N,T,Ai@ 




L^^ i 






i ■ ■ 


.... 


i i 


2,3,0 




T,D, , 


P,QLY,+,4,8,. .PS.I X.-.9®, , 




, , 






i i i 


lilt 










r,n , 


PALY, +.5, 2,. ,P,SJX,-,8tf^ , 










■ ■ i 


.... 






2,5.0 




T,n , 


P,QLY,+,5,4,. ,P,S.IX,-,7Ei , 






> • ' • 




. . . 


1 1 l 1 — l — 






2,6,0 




rp, , 


P,0,LY,+.S,6„ ,P,S.IX,-,6t^ , 




, I I 


I_l ■'■»''■'■■'■ — 1— L 


i i i i i i i i 




, , . . 
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*rograrr 


. Numerical Integration (Sample Program) 










Pnn. Mrt 1 ° . 2 | „# 8 


Prrwnmm.fr- 




Line 


label 


Operation 


Operands & Remarks 
j 70 IS 30 35 40 « SO 55 «« 70 75 






TD, , 


P,0.l,Y,+ 1 5,8„,P.S 1 IX-,S(S) 


i_UJ_l ^-^. . . . . . 


,,,.,,,,,.,.,,.,,,, 






TD, , 


PO,I,Y,+.6,0„ .P.S.I X-.4IH , . 




. i « 


....... 


, , , . . . . • . ■ , . 






TD, . 


P.OLY+,6,2,. .P,S.IJC-,3© , , 






i < i i i ■ . 


,,,,..,,, 


| 4 ,0 




TD, , 


P,0,LY+,6,4,. ,P,S,I,X-,2(f. , , 


ii,,iii 


i t , i I , 


' ' 


i. 1 I I 1 1_j^ — l_l — 1 — 1 — 1 — 1_ 


0,5,0 




TD, , 


P,OLY,+.6,6,. ,P,S.I,X-,lM , , 


2 _ L _ ; LX ^_ 






, , , , , , . . , 






TD, , 


P,O.LY-h6,8„ ,P,S,I ,X(g) , . . , 


. i . . . 




.,.,... 


, , . . 






TD, , 


P,OiLY+.l,2,. ,XSU:BN,-,6iE) , 






■ ii.i. , 


, 


o i a ,o 




TD, 


P.aLY+.l,6 1T ,XS 1 U,BN,-,5© , 








,,,,.,,,.. 






TR , 


P,Q1,Y+.1,8„ ,XSjV,BN,-,4(§ , 








,,,,.,.,, 


l L 0,0 




T,D, , 


P,QI < Y+.2,0„,XSJJ 1 BN,-,3J© , 




, , , , , 


, j ^^ j ± t _ 

















^_^ 


.,,,.,,,,,,,....... 






WAXY 


't*'-'■' l 'A 

PQLYflp 












C.O.N.TA 


T.F, , 


RAnCND..UN.I.Tlf) 




, ■ , ■ . X 


■ -^^ 









S , , 


RADGNn.X,S,UBN,.,.RADJCAJ»B, ,#, .1 


,-rX(El , , 




, , , 






TR, , 


RAnCND. Z.N,INES,-.1.3,.© ,.,,,,. 




- ■ J^j^-i-A-, 


' i 1 1 1 1 1 1 1 !_.!_ 






BNC1 


CQNT.BtfJ 




,,,,,,, 


. I 1 1 • 1 . . 1 1 1 1 1 _l.__l_i 1 1 L_ 






TD, , 


ARG+,4.2,. ,RADPNP-,6CE1| , 






i i ■ . . . . 


, I I ,,....-. . 






TJJ, . 


A.RG+,4,6,. fl.ADCND,-5(?i , 








, , , , I , , I I 1 , 






T,r>, , 


A,nr,+,4.8„ ,R.A.nr.ND,-4C 


§> i 


■ i . i . . 






,,,,,,,,, 






T,D, , 


ARG+,5,0,, ,RAflpND,-,3( 


i, 


....... 









2,1,0 




T,D, , 


ARG+.5,2,.,RADCND,-,2@ , 






,,,,,,, 


... ,1111111 .J 1 1 1 1 1 1_J 1_ 


2,2,0 




T,D, , 


ARG+,5,4,. .RADCND.-.l© , 








, 


2.3,0 




T,D. , 


ARG-h5.6,.,RADCND,© . , , 




i . i . i i 


i i ■ i ■ . i 


" ' 1 1 1 1 1 1 1 1 1 1 i _ 


2i4,0 




Bi&XX 








-.»,.,. 


, 


2.5,0 




ffiAjTjY. 


ARGlfjl . , , , , i , , 






,,,,.,,, 





2,6,0 


CQN,T,3 


T,F, , 


NI,N,E,,X,WO,9© 


J L_l 1 1 1 — l—L 


_l L-l 1—1 i 





1 l—l i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1— 
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Coding Sheet 



Program : Numeri cal Integration tSample Program^ 
Routine: _ 



Page No. 



tine 
3 S 


tabel 

i 11 


Operation 
13 15 


Operands & Renin, 
16 20 25 30 35 40 45 




0. 1 .0 


, 1 1 I L_ 


T.F, , 


0,D,D,I,N.T, .O.NE.O.N.E® : . . . 












0,3.0 


, .^ , , 


B, , 


V,2,*,L© 
























0.3 .0 


R,0,0,T, , 


A, , , 


0,DlDlI,N.T,-,8,.T,WO© 
























0,4 ,0 





S, , , 


aA,nnN,n,+ ,7,.nnr),T,N l Ttf) , , 
























0,5,0 


I,,,, 


B,N,N, 


RQOT<g) 
























0,6,0 





A, , , 


R,A,QC,N.D,+ ,7,,0DD,IJM,T© , 
























0.7,0 


■ , , , , 


TB, , 


RAEC,N,D,-7,. BADCSft- 6® 
























0,0,0 





S,F, , 


RADC,N.D,-,7lfl 
























,9.0 





S, , 


ODDI,N.T,-,8,. ,N.IN,E(e) , 


























1,0,0 


, , , , , 


T,F, , 


NI,N,E,. .NINE,-. 1(S , . . 


























t , 1 ,0 





BN,F, 


ROO,T,+ .l,*,L. ,TW,q+,l@ 


























1 ,7.0 


,,,,, 


T.F, , 


SORT, N.TN.F.S^i 


























1 , 3.0 


, , . , , 


SF, 


R,AD|C,N,D,+ ,1^| , 


























I ,4.0 





S, , 


S,QR,T, .RAP.QN.D.+ e© , 


























1,5,0 


, , , , , 


B,N,C,1 


GQN,T,CIEl 


























1,4,0 





T,D, , 


GENR,T.+ ,2,4,. SORT, -,5(1) , , 
























1,7.0 


— , i i i ,_ 


T,D, , 


QENR,T,+ ,2,S,.,SOR,T,-,4@ , , 
























1.3,0 





TBi , 


r.E,MR,T.+ ,3,0., ,SC|B,T,-,3(@ , 
























1,9,0 


■ , , ■ 


T,D, , 


GENR,T,+ ,3,2,.,SDRT,-,2(% , , 
























1,0,0 


ii,i, 


T,D, , 


GENR,Trt„U,. l SORT,-,lffl , , 
























2,1,0 




TD, 


GEN,R.T.+ ,3,6,,,SORX{f!) 




























2,2,0 




BCXiY, 


§ 


LJ , 








......... 




















2,3,0 


I,,,, 


WA.T.Y 


GENR.Tlf) , , , , 






























2,4,0 


C,0,N,T,C, 


^ , , 


SG.RT,, ,P,S,I,X(E) 






























2,5,0 





S F, i 


8,5,® 










, , , , , 




















2,6,0 




T,F, , 


T.E.MP,!,,^© , 


1 1 ' ' 








' 1 





















IBM 



1620/1710 Symbolic Programming System 
Coding Sheet 



Prooroni: Numerical Integration (Sample Program , 

Routine; 



Page No. lO .4 I f . 



Programmer: . 



Line 
3 5 


tabel 
4 11 


Operation 

13 15 


Operandi & Remark. 
14 30 35 30 35 40 45 50 5S *1 45 7n 74 


OJ.O 


, , , 


, 


B.N.C.1 


S.lSfl© , 








0.1,0 


. . . 


, 


T,n , 


FU,N,C,T.+,l,0,.,T£,MP,l,-.9(El , , 
























































0,3,0 


, , , 


, 


T,n , 


FUN,C,T.+,1,4,.,T.E,MP,1,-.8(B . , 
























































0,4,0 


, , , 


1 


T,n , 


EU,N,C l T,+,1,„,.,T,E,MP,l,-.7(g) , , 
























































0,5 ,0 


, , , 


I 


t,u 


EU,N,C I T,+,1,8,.,T.E,MP,1.-.6(E) . 
























































0,6,0 


, , , 


, 


T,n 


FU I N,C,T.+,2,0 I ,,T,E 1 MP 1 1,-,5(E| , 
























































0,7,0 


, i , 


, 


T.n , 


EU,N,C,T.+,2,2,.,T.E,MP,l,-,4l© , . 
























































0,8,0 


, , , 


I 


T,n , 


EU,N.C,T.+,2,4,.,T.E,MP,l.-,3(£, , 
























































0,9,0 


, l , 


i 


T,n , 


EU,N,CT.+,2,6,.,T,EMP,l-,2© , 
























































1 ,0 ,0 


, , , 


, 


T,n , 


F,U,N J C,T,+,2,8 1 ,,T 1 E J MP I 1 I -,1|^) 
























































1 , 1 ,0 

1,2,0 


, , , 


l 


TD , 


E.U 1 N,C,T,+,3,0, , .TjEjMP,].® 




























































, , , 


, 


RCT.Y 1 


© 




























































1.3,0 


. , . 


, 


WAXY 1 


EU,N,CT<B 


. . 




























































1 ,4,0 


SW,1, 


i 


B , , 


SW2® 


, 




























































1 .5,0 


, , , 


, 


M , , 


XSH.B.N.. ,X,S,TJR.N@ 






























































1 .4,0 


, , , 


, 


S,F, , 


8 l® 


, , . 




























































1 .7,0 


, , , 


i 


T.E. . 


T,EMP,2.. .9, 6<gl . , 


, , . 




























































1 ,8.0 


, , , 


, 


MM . 


TEMP2.. ,3,. ,l,0i£) 






























































1 ,?,0 


, , 


, 


SF, , 


8.0® 


, , , 




























































3,0,0 


, , , 


., i 


T,F, , 


RADCN.D, ,9,6® , 


, 1 1 




























































2,1,0 


, , , 


l 


T,F. , 


P,S,IX, ,C,0,N,S,T,+ ,5 


Or© , 
















, 












































2,2.0 


. . , 


, 


S, , , 


P,S,IX..T,EM,P,l(E) 






























































2,3,0 


, , 1 


, 


TjDMi_ 


S,W1,+, L. ,9© , . , 


, , 1 




























































2,4,0 


, , . 


, 


B, , 


RQQI-,l,4,*,Ii| , 






























































2,5,0 


S,W,2, 


1 


B, , , 


o.mnVN© 


1 [ 1 




























































2.6.0 


, , , 


, 


A, , , 


AREA..T,EMP.l,-,4 


.,.,F,0 


+ 


F,N(3 , 






















































Figu 
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Sa 
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Coding Shoot 



p.-^— Numerical Integration (Sample Program) 

Routine : 



Page No. I°, 5 I of -L 



Line 


Label 


Operation 
13 IS 


Operands & Remarks 

14 W 2S 30 35 40 « 50 55 40 45 70 75 




*. J .NIT 


I A .LI 


ZA.T-IP.N, .FOR. f3P 3PPP® . , 












T,F, , 


XSU3.N.. ,D,E,LT.A3«£l 




!___■ i __1 ' J_J _-_J__i__. 


............ 








T,FM, 


MqL,T.+.l < l..:4... 1.0(9 






, , . 1 1 , . 1 I 1 J 1 









IlDMl 


R,W2,+ ,li. ,_{§) , 






, , , , 








TiFi i 


AGGUM. ZtS , . , , 


. 




. . i ..... 1. , . 








T,F, , 


T.EMP.3,. ,D,E,LT,A,XLE) , . 


_____ J . L_ 




. I.I.I 








A. , , 


TEMP.3.. .T.EMP.3® 
















B, , i 


A R.T.N.E.-, 3, *ll§l 






1 1 1 1 






O.D.DV.N 


A. , , 


AfiCIJW.. ,T,EMP_1@ . . i 






1 1 1 I ( 1 1 1 . 1 1 1 








A. , , 


XSUB.K. ,T,E,MP3@ 


















XSITRNl N,T,T_,E.S@ i 






r , i 1 1 1 1 








B,N,H 


AS,I,N,E.-,3,*,ljEi t " 













jMU.LT. . 


W.M , 


AG CUM® 






1 1 1 L J_ 








SF, j_j 


8,8® 






, , | 1 1 1 








A, , . 


AREA. .9,5® ■ . 


,.,... 




.,,,...,.... 






SW.3, , , 


B, , , 


*.+.6 ( *L_fl r. ............ . 


. 1 . > . 




, , , 


...... 




*, ,I>N,I _ 


I A.LI 


ZATI.O.N, .F.QR F,S,U,B.E,V,E 1 n(e) , 






, , , . , . 








T.FM 


M__.T,+.1,1,..2...1,0® 


, , ^^ , 




.,,■,..1.111 








T,F. . 


AOGUM.. ,Z® ,..,,, 


, , , , 


11,1111,111 


, , , , , 1 








T,F. , 


XS.U.RN,. .T,EMP,3(E. , , . , 






, . . ■ f ...... , 




2,1,0 




T.DM 


S.W3.+ .1,, ,9® 


...... 




, 




2,2,0 




B, , , 


AS,I,N,E.-,3,*___E_ 




_ ... ■_■■_. ■ ■ 


... 1 1 1 1 1 1 1 1 1 




2.3.0 




VI. , . 


AREA. DE1,TAX{6) ....... 




,,,,,,,,,, 1 1 


, , . , I I 




2,4,0 




SF, . 


8,8^ r, i . . i i i . i i 






, , , , , 








T.F, , 


T,EHP.1...9,7^ . . . . 











2,6.0 


■ ■ ' ' ■ 


M , . 


TEMPI,., THREE, S/§ 


_l 1 l—l 1 1 


| . 1 1 J 1 1 1 1 ' ' ■ ' 


1 1 1 l — 1 — 1 — 1 — 1 — 1 — L 





IBM 



1620/1710 Symbolic Programming Syston 
Coding Shoot 



Progicll - . Numerical Integration (Sample Program) 

Routine:. 



Poge No. LA_ of — _ 



Label Operation 



X__ 



TA 



______ 



______ 



______ 



TJD, 



», ,AR,E,_ P.E.F 



D,E,1_,T,A,3< EjS, 



&_ 



QJ__IU__t__2 ft ..PELT. AX -5^ 



OUTPUT, +.2, 8,, ,_,E,L|T,AX.-4( 



OUTP,UT.+ 3,a..l>ELT,AX-3@ , 



OUTPUT, +,4,6. 3 3® 



QUTPIJT, +.5,0,. 3.4(E) 



________________J____j____lj 



___ 



R.CTY § 



______ 



AM, 



CM, 



B_N,E, 



H_ 



Operand: 



QUT,PI-lT+,5,4,3 60 



QUT,PUT,+,5,6._. ,70 



0,_T,PUT,+,5,a.<- 30 



OUTPUT® , 



START.* ,1,1, ..7...1, 



START.* ,l.l,.,X.+,2, 



STABiT® 



IW,I,T,I.O|M,_ 



__L 



Dp, , 7,.,1,0,0.0,0,0< 



HCj , 7,, ... ,o,o,o,ofl 



DC, 



_______ 



111 

__2J 
2__J 
- 4 |II.K.I ,T, 

__J_j 

____ 



[__. 



___jSI__l 



AS.UBN, 



D__ 



D__ 



DiSB, 1.0... 



D.S, 



7, .,2,5 ,0,0 ,0(1 



1,1,., oo 



7,.,l,0,0,0i0i0,0_l 



_©__ 



Figure 7. Sample Program Coding Sheets 
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IBM 



1620/1710 Symbolic Programming System 



Coding Sheet 



P, ogram : Numerical Integration (Sample Program) 

Routine: . 



Line 
3 5 


Label 
6 11 


Operation 

12 15 


Operands 8. Remark. 
11 » » 30 35 40 <5 » 55 so a ,„ 


0.1,0 


C,0,N,ST, 


D P, , 


1,0,, -4.3 3 7 7 6 9© 




0.2.0 


i i i i i 


DC, , 


1,0,. ,1,9.3,4,9.9, 3. 9(f) 




















*,3,0 





DC, , 


1,0, ,,-,4,4,9,5, 8, 8. 8.4© 




















0.4,0 





D,C, , 


1,0, ,,8,7,8,7 ,6, 3, 1,1© , 


, , , , 


i_l 
















0,5,0 


i i i , , 


DP, , 


1J),, ,-,2,1,4,51,2,3.6 2© 




















0,6,0 





D,C, , 


1,1,,, 1,5,7 ,0,7,9, 5.2,0 J,@© , , , 


, . , 


















0,7,0 


L 


D,S, , 


.,1,2© 




















0,8.0 


P,S,IX, , 


D,S, , 


1.0© 




















0,9,0 


1 1 i 1 1 


D,S, 


1© . , 




















1 .0 .0 


R,A,D,C,NX 


DS, 


7© , , , ,,,,,,,,,, , 




















1 , 1 .0 


i i i i i_ 


o,s, , 


I. 3 ® 




















1 .3.0 


Z,N,INES 


DC. , 


1,5,. ,9,9.9,9,9,9.9:@@ 




















1 .3.0 


TWO , , 


os, , 


6© 




















1.4.0 


N,TN,E, , 


DS, , 


6© , 




















■ .5 ,0 


T.WQ9, . 


D,C, , 


1,2,, ,2,0 0,0,0,00,9 0,0,0,0© , , 




















1 ,& ,0 


0,D,D,I NT 


DS, , 


1.4© 




















' |7 ,0 


0,N,E,O,N,E 


DC, , 


1,4,. ,1,0,0,0,0,0,0.0,0, 0, 0, 0.0, lSi 




















1 ,8.0 


SORT, 


DS, , 


s© 




, 
















1,9,0 


N,I,N,E,S, 


D,C, , 


6, ,,9,9 ,9,9 ,9 ,9© ..,,,,,,, 


_L_t^_l 


















2 ,0 ,0 


TiEMP 1 , 


D,S, 


1,0© ,.,,,,, ,,.,,, 






, 














if.p 


T.EMP.2, 


OS, , 


1,0(1) , , 




















a PP 


A C.C.UM 


DS, , 


1,1© , , ,,,,,, 




















23P 


T,EMP t 3, 


DS, , 


7 ® 




















2|4P 


THREES 


DC, , 


7,. ,3 ,3,3.3,3,3,3© 




















2PP 


P,0,L,Y, , 


DAC, 


3,6,,,F,OJl, » ,0,. ,0,0,0,,, ,P,QI 1 'XN,O^I 1 I f A,L,#,0 


.,0,0,0,0,0,0,0, 


>,o,@,© , 












RifiiO 


A.E.G, , , 


D,A,C, 


3,0, „S,Q,U,A,R,E, R.OO.T, ,A,HQUME,N,T,#,0,. ,0 ,0 


0,0,0 0,@© . 


_, — 1 — 1 — 1 — 1_ 








J_,_,_^_, 





IBM 



1620/1710 Symbolic Programming System 
Coding Sheet 



Program; Numerical Integration f Sample Program. 

Routine : ^ 



Poge No. I ft. «l c f JL. 

I 7 



Programmer: . 



Line 
3 5 


Label 

6 11 


Dperurio 
I 15 


Operand, & Remarks 
'• » » » 35 .0 « n « 


0.1.0 


G.E.N.RT, 


D.A.C. 


2,0,,, SQUARE, R,O,OT#.0...0 0.0.0 0@© . 




0,2. ft 


F,U,N,C.T, 


DA.C, 


1,7,.,F,(.X.) , 


#,0,. ,0,0,0.0,0.0,0.0.0®.© 










1 1 1 


0,3.0 


0,U,T,P,in 


D.A.C, 


3,1,,, FAR. , 


D : E,L,T AX# , 0,/ , 0, 0, 0, , , ,A,aEA# .0 


,- ,o,o,o 


,0,0,®© , , , . 








O,*,0 





DiPiN,r 


S,TA,R,I© , 


li. 
















0,5,0 





, , , 


1 1 1 1 ■ , , 


















G i 6 ,0 





, , , 


1 1 1 [ t 1 


















0.7,0 





, , , 


111,11, 


















iB,0 





i , , 


' 1 1 1 1 1 i 


















0,9,0 





, , , 


111,11, 


, , . , . . , . , , . 
















1 ,0,0 





, , 


1,1,,,. 


















1,1.0 







- 


















1,2,0 





, • 




















1 .3.0 





, , , 


,,,,,.. 


















1,4,0 





i , i 


■ 11,1,, 


i i « i i i i i i 
















t ,5,0 





■ i i 


, 


















1 ,6 ,0 


, , , , , . 


_, , L^ 





















1,7,0 


■ i , ■ , 


, , I 


1 1 1 1 , , | 


II 1 i-^-L-L ' ' | 
















1 ,8,0 


,,,,, 


1 1 1 


,,,,,., 


, , , , 
















1 ,9,0 


i , , , , 


I I 


1 1 1 1 1 , , 






, , 












2,0,0 





I I I 


i 1 1 1 1 1 1 






, , 












' ' 


I,,,, 


, 1 , 


, , , , 


















i . 


,, i i i 


1 1 , 


,ii,,,, 


' 1 1 1 1 , 




i i , i i 












I 1 


),,ii 


, , , 


' ' 


, , , , 




. . . . . 












, , 







i,i,i, , 


J_i ' ' 1 • III 
















, : 


,,ii 


I I 1 


i , , i . , , 


1 1 ■ , I 1 1 | I | . 




. i . . . 












, , 





1 1 I 


,i,i.,, 
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* THIS PRO c 




* WHER E X 1 




* FOR NUME I 




* D1FF EREN 


01732 


DORG 


01732 26 03394 -3401 


START TF ! 


01744 26 03423 03431 


TF 


01756 26 0344 1 03448 


TF 


01768 15 03089 00001 


TOM 


01780 15 02897 U0U01 


TDM 


01792 15 02765 00001 


TDM 


01804 31 03449 03510 


TR 


01816 26 03580 03458 


TF 


01828 23 03580 03441 


ASINE M 


01840 32 00064 00000 


SF 


01852 44 01876 00099 


BNF 


01864 32 00093 00000 


SF 


01876 26 03580 00093 


TF 


01888 31 03449 03459 


TR 


01900 21 03580 03458 


A 


01912 45 01828 03459 


bNR 


01924 47 02128 00100 


BNC1 


01936 25 03775 03571 


TD 


01948 25 03779 03572 


TO 


01960 25 0378! 03573 


TD 


01972 25 03783 03574 


TD 


01984 25 03785 03575 


TD 


01996 25 03787 03576 


TD 


02008 25 03789 03577 


TD 


02020 25 03791 03578 


TD 


02032 25 03793 03579 


TD 


02044 25 03795 03580 


TD 


02056 25 03739 03435 


TD 


02068 25 03743 03436 


TD 


02080 25 03745 03437 


TD 


02092 25 03747 03438 


TD 


02104 34 00000 00102 


RCTY 


02116 39 03727 00100 


WATY 


02128 26 03588 03448 


CONTA TF 


02140 22 03588 03441 


S 


02152 31 03588 03603 


TR 


02164 47 02284 00100 


BNC1 


02176 25 03841 03582 


TD 


02188 25 03845 03583 


TD 


02200 25 03847 03584 


TD 


02212 25 03849 03585 


TD 


02224 25 03851 03586 


TD 


02236 25 03853 03587 


TD 


02248 25 03855 03588 


TD 


02260 34 00000 00102 


RCTY 


02272 39 03799 00100 


WATY 


02284 26 03628 03640 


CONTB TF 


02296 26 03654 03668 


TF 


0230B 49 02332 00000 


B 


02320 21 03646 03622 


ROOT A 


02332 22 03595 03654 


S 


02344 46 02320 01300 


BNN 


02356 21 03595 03654 


A 


02368 31 03581 03582 


TR 


02380 32 03581 00000 


SF 


02392 22 03646 03628 


S 


02404 26 03628 03627 


TF 


02416 44 02332 03623 


BNF 


02428 26 03674 03680 


TF 


02440 32 03589 00000 


SF 


02452 22 03674 03594 


S 


02464 47 02572 OOlOO 


BNC1 


02476 25 03883 03669 


TD 


02488 25 03887 03670 


TD 


02500 25 03889 03671 


TD 


02512 25 03891 03672 


TD 


02524 25 03893 03673 


TD 


02536 25 03895 03674 


TD 


02548 34 00000 00102 


RCTY 


02560 39 03859 00100 


WATY 



GRAM COMPUTES THE AREA UNDER THE CURVE SQRT%3X**2C!»ARCS 1 NEX 

LIES BETWEEN AND t. THE AREA IS COMPUTED BY SIMPSONS RULE 

RICAL INTEGRATION. THE AREA IS EVALUATED USING THREE 

T VALUES FOR DELTAX. THEY ARE 0.100. 0.050. AND 0.025. 

1732 

DELTAX. X. 7. TRANSMIT VALUE OF INCREMENT 

AREA.Z-3 

XSUBN.UNIT 

SW3&1.1..SET SW3 OFF 

SW2&1. 1..SET SW2 OFF 

SW101 . 1 . .SET SWl OFF 

ASUBN-9.C0NST-9. .TRANSMIT ASUB5 TO ASUBO 

PS IX. ASUBN 

PS1X.XSUBN 

84 

*&2#L.99 

93 

PSIX.93 

ASUBN-9. ASUBN&l 

PS IX. ASUBN 

AS I NE. ASUBN&l 

CONTA 

P0LY&4B.PSIX-9 

P0LY&52.PSIX-8 

P0LY&54.PSIX-7 

P0LY&56.PSIX-6 

P0LY&58.PSIX-5 

POLY660.PS I X-4 

P0LY&62.PSIX-3 

P0LY&64.PSIX-2 

P0LY&66.PS1X-1 

P0LY668.PSIX 

P0LY&12.XSUBN-6 

P0LY&16.XSUBN-5 

P0LY&18.XSUBN-4 

P0LY&20 . XSUBN-3 

POLY 

RADCND.UNIT 

RADCND.XSUBN. .RADIGAND * 1 -X 

RADCND.ZNINES-13. 

CONTB 

ARG&42.RADCND-6 

ARG&46.RADCN0-5 

ARG&48 . RADCND-4 

ARG&50 .RADCND-3 

ARG&52.RADCND-2 

ARG&54.RADCND-1 

ARG&56.RADCND 

ARG 

N1NE.TW09 

ODD I NT. ONE ONE 

*&2*L 

0DDINT-8.TWO 

R ADCND&7 . ODO 1 NT 

ROOT 

R ADCND&7 . ODD I NT 

RADCND-7.RADCND-6 

RADCND-7 

0DDINT-8.NINE 

NINE.NINE-1 

R00TM*L.TW0&1 

SORT. NINES 

RAOCND&l 

SQRT.RADCND&6 

CONTC 

GENRT&24 . SQRT-5 

GENRT628.SQRT-4 

GENRT&30.SQRT-3 

GENRT&32.SQRT-2 

GENRT634.SQRT-1 

GENRT&36.SQRT 

GENRT 



0002 

0004 

0006 

0008 

0010 

0012 

0014 

0016 

0018 

0020 

0022 

0024 

0026 

0028 

0030 

0032 

0034 

0036 

0038 

0040 

0042 

0044 

0046 

0048 

0050 

0052 

0054 

0056 

0058 

0060 

0062 

0064 

0066 

0068 

0070 

0072 

0074 

0076 

0078 

0080 

0082 

0084 

0086 

0088 

0090 
0092 
0094 
0096 
0098 
0100 
0102 
0104 
0106 
0108 
OHO 
0112 
0114 
01 16 

one 

0120 
0122 
0124 
0126 
0128 
0130 
0132 
0134 
0136 
0138 
0140 
0142 
0144 
0146 
0148 
0150 
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02572 


23 03674 


03S60 


CONTC 


M 


SQRT.PSIX 


02584 


32 00085 


00000 




SF 


85 


02596 


26 03690 


00094 




TF 


TEMPI .94 


02608 


47 02764 


00100 




BNC1 


SW1 


02620 


25 03909 


03681 




TD 


FUNCT&10.TEMP1-9 


02632 


25 03913 


03682 




TO 


FUNCT& 1 4 . TEMP 1 -8 


02644 


25 039 15 


03683 




TDs 


FUNCT&16.TEMP1-7 


02656 


25 03917 


03684 




TD 


FUNCT0 18.TEMP1-6 


02668 


25 03919 


03685 




TD 


FUNCT&20. TEMP 1-5 


02680 


25 03921 


03686 




TD 


FUNCT622.TEMP1-4 


02692 


25 03923 


03687 




TD 


FUNCT&24. TEMP 1-3 


02704 


25 03925 


03688 




TD 


FUNCT626. TEMP 1-2 


02716 


25 03927 


03689 




TD 


FUNCT628. TEMPI- 1 


02728 


25 03929 


03690 




TD 


FUNCT630. TEMPI 


02740 


34 00000 


00102 




RCTY 




02752 


39 03899 


00100 




WATY 


FUNCT 


02764 


49 02896 


00000 


SW1 


B 


SW2 


02776 


23 03441 


03441 




M 


XSUBN. XSUBN 


02788 


32 00087 


00000 




SF 


87 


02800 


26 03700 


U0096 


G> 


TF 


TEMP2.96 


02812 


13 03700 


000-3 




MM 


TEMP2.3, 10 


02624 


32 00090 


00000 




SF 


90 


02836 


26 03588 


00096 




TF 


RADCND.96 


02848 


26 03580 


03569 




TF 


PSIX.CONST050 


02860 


22 03580 


03690 




S 


PS IX. TEMPI 


02872 


15 0276S 


00009 




TDM 


SW101 .9 


02884 


49 02152 


00000 




B 


R00T-14*L 


02896 


49 03004 


00000 


SW2 


B 


ODDVN 


02908 


21 03423 


03686 




A 


AREA.TEMP1-4. .FO&FN 








» INIT 


IAL1 


ZATION FOR FSUBODD 


02920 


26 03441 


03394 




TF 


XSUBN. DELTAX 


02932 


16 03063 


000-4 




TFM 


MULT61 1,4.10 


02944 


IS 02897 


00009 




TDM 


SW261 .9 


02956 


26 037 1 1 


03434 




TF 


AC CUM. Z 


02968 


26 03718 


03394 




TF 


TEMP3.DELTAX 


02980 


21 03718 


03718 




A 


TEMP3.TEMP3 


02992 


49 01792 


00000 




B 


ASINE-3»L 


03004 


21 03711 


03690 


ODDVN 


A 


ACCUM. TEMPI 


03016 


21 03441 


03718 




A 


XSUBN, TEMP3 


03028 


24 03441 


3680 




C 


XSUBN. NINES 


03040 


47 01792 


01 100 




BNH 


ASINE-3*L 


03052 


13 0371 1 


-0000 


MULT 


MM 


ACCUM 


03064 


32 00088 


00000 




SF 


88 


03076 


21 03423 


00095 




A 


AREA. 95 


03088 


49 03160 


00000 


SW3 


B 


*&6*L 








* INIT 


1 ALI 


ZATION FOR FSUBEVEN 


03100 


16 03063 


000-2 




TFM 


MULT&l 1.2.10 


031 12 


26 0371 1 


03434 




TF 


ACCUM. Z 


03124 


26 0344 1 


03718 




TF 


XSUBN. TEMP3 


03136 


15 03089 


00009 




TDM 


SW361 .9 


03148 


49 01792 


00000 




B 


ASINE-3*L 


03160 


23 03423 


03394 




M 


AREA.DELTAX 


03172 


32 00088 


00000 




SF 


88 


03184 


26 03690 


00097 




TF 


TEMPI .97 


03196 


23 03690 


03725 




M 


TEMPI .THREES 


03208 


25 03959 


03389 




TD 


0UTPUT626.DELTAX-5 


03220 


2b 03961 


03390 




TD 


0UTPUT028.DELTAX-4 


03232 


25 03963 


03391 




TD 


0UTPUT630.DELTAX-3 


03244 


25 03979 


00083 




TD 


0UTPUT046.83 


03256 


25 03983 


00084 




TD 


OUTPUT650.84 


03268 


25 0398b 


00085 




TD 


0UTPUT&52.85 


03280 


25 03987 


00086 




TD 


0UTPUT&54.86 


03292 


25 03989 


00087 




TD 


OUTPUT056.87 


03304 


25 03991 


00088 




TD 


0UTPUT658.88 


03316 


34 00000 


00102 




RCTV 




03328 


39 03933 


00100 




WATY 


OUTPUT 


03340 


11 01743 


000-7 




AM 


START61 1 .7. 10 


03352 


14 01743 


-3422 




CM 


START61 1 ,X621 


03364 


47 01732 


01200 




BNE 


START 


03376 


48 00000 


00000 




H 










* AREA 


DEF 


INIT IONS 


03394 


00007 




DEL TAX 


DS 


7 


0340 1 


00007 




X 


DC 


7. 100000 


03408 


00007 






DC 


7,50000 


03415 


00007 






DC 


7,25000 


03423 


00008 




AREA 


DS 


8 



0152 
0154 
0156 
0158 
0160 
0162 
0164 
0166 
0168 
170 
0172 
0174 
0176 
0178 
0180 
0182 
0184 
0186 
0188 
0190 
0192 
0194 
0196 
0198 
0200 
0202 
0204 
0206 
0208 
0210 
0212 
0214 
0216 
0218 
0220 
0222 
0224 
0226 
0228 
0230 
0232 
0234 
0236 
0238 
0240 
0242 
0244 
0246 
0248 
0250 
0252 
0254 
0256 
0258 
0260 
0262 
0264 
0266 
0268 
0270 
0272 
0274 
0276 
0278 
0280 
0282 
0284 
0286 
0288 
0290 
0292 
0294 
0296 
0299 
0302 
0305 
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03434 


0001 1 


03441 


00007 


03448 


00007 


03458 


00010 


03509 


00001 


03519 


00010 


3529 


00010 


03539 


00010 


03549 


00010 


03559 


00010 


03570 


0001 1 


0001 a 




03560 


00010 


03581 


00001 


03588 


00007 


03601 


00013 


03616 


00015 


03622 


00006 


03628 


00006 


03640 


00012 


03654 


00014 


03668 


00014 


03674 


00006 


03680 


00006 


03690 


00010 


03700 


00010 


03711 


0001 1 


03718 


00007 


03725 


00007 


03727 


00036 


03799 


00030 


03859 


00020 


03899 


00017 


03933 


00031 


01732 





00006 



z 


DC 


1 1 .0 


XSUBN 


DS 


7 


UNIT 


DC 


7. 1000000 


ASUBN 


DSB 


10.6 




DS 


1 


CONST 


DC 


10.-4337769 




DC 


10. 19349939 




DC 


10.-44958884 




DC 


10.87876311 




DC 


10.-214512362 




DC 


1 1 . 157079S2079 


L 


DS 


. 12 


PS IX 


DS 
DS 


10 

1 


RADCND 


DS 


7 




D5 


13 


ZNI NES 


DC 


15.9999999* 


TWO 


DS 


6 


NINE 


DS 


6 


TW09 


DC 


12.200000090000 


ODOINT 


DS 


14 


ONEONE 


DC 


14. 100000000000Q1 


SORT 


DS 


6 


NINES 


DC 


6.999999 


TEMPI 


DS 


10 


TEMP2 


DS 


10 


ACCUM 


OS 


1 1 


TEMP3 


DS 


7 


THREES 


DC 


7.3333333 


POLY 


OAC 


36. FOR X*0«000. POLYNOM 1 AL*0. 000000000* 


ARG 


DAC 


30 .SQUARE ROOT ARGUMENTWO. 0000008 


GENRT 


DAC 


20 .SQUARE ROOT*0. 000009 


FUNCT 


DAC 


17«FXXn*0. 0000000009 


OUTPUT 


DAC 


31 .FOR DELTAXBO.OOO. AREAWO. 000009 




DEND 


START 



0307 
0310 
0312 
0315 
0317 
0319 
0322 
0325 
0328 
0331 
0334 
0337 
0339 
0341 
0343 
034b 
0347 
0350 
0352 
0354 
0357 
0359 
0362 
0364 
0367 
0369 
0371 
0373 
0375 
0378 
0382 
0386 
0389 
0392 
0396 



PAGE 
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Index 



Page 

Actual 

address 13 

operand ( Q ) in Immediate instruction 13 

Add (A) instruction 26 

Add Immediate (AI) instruction 26 

Adding macro-instructions to processor 69, 77 

Adding subroutines 46, 69 

addresses required for 71 

Address 

actual, 13 

equivalents for PICK, 71 

length of, . 13 

symbolic, 13 

types of, used as operands 13 

Address adjustment 15 

Addresses required for adding subroutines 71 

Alpha 70-73 

Analog Output Check code 44 

Analog Output Setup code 44 

Analog-to-Digital Converter (1710) 

imperative codes for, 43 

Any Data Check code 44 

Argument evaluation ( subroutines ) 46 

Arithmetic instructions 

summary ( Table 2 ) 26 

Arithmetic subroutines 45 

Arithmetic subroutine macro-instructions 47 

Arithmetic tables 41, 83 

multiplication and addition 81 

Assembling programs 5 

1620/1710 Two-Pass Processor 79, 93 

7090 Processor 102 

Asterisk 

first character or term(s) of operand 11 

in address adjustment 11, 15 

to indicate comments 11 

to indicate 6-character label in listing 94 

At ( @ ) sign ( special character ) 8, 12 

Beta 70, 73 

Blank character 11 

headed by, 40 

in DAC statements 11 

in declarative statements 12 

in flag indicator operand 12 

Branch and Transmit (BT) instruction 31 

Branch and Transmit Floating 

instruction (BTFL) 31 

subroutine (BTFS) 45, 64 

Branch and Transmit Immediate (BTM) instruction 31 

Branch Any Data Check ( BA) instruction 29 

Branch Back ( BB ) instruction 31 

Branch Console Switch instructions 

(BC1, BC2, BC3, BC4) 29, 30 

Branch Equal (BE) instruction 29 

Branch Exponent Check (BXV) instruction 30 

Branch High (BH) instruction 29 



Page 

Branch Indicator (BI) instruction 29 

indicator codes summary ( Table 5 ) 31 

switch codes summary (Table 5) 31 

Branch Instructions 29 

Branch Last Card (BLC) instruction 30 

Branch Low (BL) instruction 30 

Branch Negative (BN) instruction 30 

Branch No Flag ( BNF ) instruction 29 

Branch No Indicator (BNI) instruction 30 

indicator codes summary ( Table 5) 31 

switch codes summary ( Table 5) 31 

Branch No Overflow (BNV) instruction 30 

Branch No Record Mark (BNR) instruction 29 

Branch Not Any Data Check ( BNA) instruction 30 

Branch Not Equal ( BNE ) instruction 30 

Branch Not Exponent Check (BNXV) instruction 31 

Branch Not High (BNH) instruction 30 

Branch Not Last Card (BNLC) instruction 30 

Branch Not Low ( BNL ) instruction 29 

Branch Not Negative ( BNN ) instruction 29 

Branch Not Positive (BNP) instruction 30 

Branch Not Zero ( BNZ ) instruction 30 

Branch on Digit (BD) instruction 29 

Branch Out of Interrupt code 44 

Branch Out of Noninterruptible Mode (BO) instruction 43 

Branch Out of Noninterruptible Mode (BOLD) instruction . 43 

Branch Overflow (BV) instruction 29 

Branch Positive (BP) instruction 29 

Branch Zero (BZ) instruction 29 

Card processor ( 1620/1710 Two-Pass ) 

card input operating procedures 82, 93 

modifying for additional storage 15, 96 

program switches 83, 89, 92 

typewriter input 82 

Characters 

See Special characters 

Clear Flag ( CF ) instruction 36 

Code 

in storage position (401) 54 

overflow, 54 

underflow 54 

Coding sheet 

Patch card, 95 

SPS 6-7 

Commas 10-11 

Comments 

card format (output) 88 

with asterisk 11 

See also Remarks 

Compare (C) instruction 29 

Compare Immediate (CM) instruction 29 

Condensed deck, alterations 94 

Condensed output (card) 

format 88 

pass 2 83-84 

Condenser program 97 



112 



Page 

72 
Constants 

at sign 12 

card format (output) . 88 

Define Constant (DC) instruction 19 

Define Special Constant (DSC) instruction 21 

Control card for 7090 102 

Control (K) instruction 35 

Control operation 36, 42 

card format (output) 85 

codes 6 > 36 

Customer Engineer ( CE ) Interrupt code 44 

Data transmission subroutines 45 

Data transmission subroutine macro-instructions 47 

Declarative operations 

card format (output) 85 

fi 17 
codes "' 1 ' 

functions 1 ' 

summary (Table 1) 24 

Define Alphameric Constant (DAC) statement 21 

at sign I 2 

blank character 1* 

card format (output) 87 

Define Alphameric Symbol ( DAS ) statement 19 

card format ( output ) 86 

Define Constant (DC) statement 19 

19 

at sign "• 

card format (output) 86 

Define Constant (Numerical) DSC statement 21 

at sign I 2 

card format (output) 86 

Define End (DEND) statement 36, 37 

card format ( output) 85 

Define Numerical Blank (DNB) statement 23 

card format ( output ) 87 

Define Origin (DORG) statement 36, 37 

card format (output) 85 

Define Special Constant (Numerical) DSC statement 21 

card format (output) 86 

Define Special Symbol (Numerical) DSS statement 19 

card format (output) 85 

Define Symbol (Numerical) DS statement 17 

card format ( output) 85 

Define Symbolic Address (DSA) statement 22 

card format ( output) 86 

Define Symbolic Block (DSB) statement 23 

card format (output) 86 

Diagnostic procedure for 7090 102 

Distribution order numbers 5 

Divide ( D ) instruction 26 

Divide Immediate ( DM ) instruction 26 

Divide subroutine 49 

bypassing PICK in, 74 

Divisor, incorrect positioning , 61 

Dollar sign ( special character) 10, 12, 40 

Dump Numerically Card (DNCD) instruction 34 

Dump Numerically (DN) instruction 34 

Dump Numerically Paper Tape (DNPT) instruction 34 

Dump Numerically Typewriter (DNTY) instruction ... 34 

Duplicate Symbols (labels) 39, 90 



Page 

End-of-line character 

paper tape H 

punch code "■ 

Equal sign ( special character) 8 

Error correction 

source program 90 

typing errors ' °> °° 

Error message codes 

subroutine, 54-55 

1620/1710 Two Pass Processor, • 89 

Error message format 

subroutine 54 

1620/1710 Two-Pass Processor, 89 

Evaluation of arguments (subroutines) 46 

Execution times (subroutines) 
See particular subroutine listing 

Exponent overflow 53, 55 

Exponent underflow 53, 55 

Exponents ^ 2 

Field 6,8,9 

Fixed length, defined 45 

Fixed length mantissa subroutines 45 

Fixed Point Divide ( FD) subroutine 45 

Flag indicator operand I 2 

comma * 

if omitted 12 

in immediate instructions I 3 

in indirect addressing 13 

order of coding " 

Flagged digits 1° 2 

Flags, Set 9, 12, 52 

Floating Add 

instruction (FADD) 26 

subroutine (FA) 45, 57, 58 

Floating Arctangent (FATN) subroutine 45, 46 

Floating Cosine ( FCOS ) subroutine 45, 46 

Floating Divide 

instruction (FDIV) 26 

subroutine (FD) 45 

Floating Exponential (Base 10) FEXT subroutine 45, 46 

Floating Exponential (Natural) FEX subroutine 45, 46 

Floating Logarithm (Base 10) FLOG subroutine 45, 46 

Floating Logarithm (Natural) FLN subroutine 45, 46 

Floating Multiply 

instruction (FMUL) 26 

subroutine (FM) 58 

Floating point arithmetic 

conversion of ordinary numbers to 53 

format 52 

limits 52 

N digit 53 

normalized 5 * 

sign control & ^ 

truncation error 53, 65-67 

unnormalized & 

Floating Shift Left 

instruction (FSL) 28 

subroutine (FSLS) < 45 

bypassing PICK in, • • ■ • 74 
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Page 
Floating Shift Right 

instruction (FSR) 28 

subroutine (FSRS ) 45 

bypassing PICK in, . .. . . 74 

Floating Sine (FSIN) subroutine .45 46 

Floating Square Root (FSQR) subroutine ' " .45' 46 

Floating Subtract 

instruction (FSUB ) 26 

subroutine ( FS ) 43 

Functional Register Check Indicator code 44 

Functional subroutine macro-instructions 47 

Functional subroutines 45 

Gamma 73 

Halt for overflow and underflow 54 

Halt ( H ) instruction 30 

Head character 

added to label 30 

treatment of, in storage go 

signaled by $ 40 

Header card 

format 73 

sample, in sample problem 75 

Heading 

for combining programs 39 

in nesting 40 

line o 

Identification card for 7090 1Q2 

Immediate-type instructions 13 

Imperative operations 25 

Arithmetic 26-27 

Branch ...'..'.'.'.'.'.'.'.'.'.'. ^8-32 

card format (output) 84 

codes, 1620/1710 .6, 26-36 

codes, 1710, summary (Table 10) 43 

Input/Output 34-35 

device codes (Table 6) 32 

typewriter control codes (Table 7) 33 

Internal data transmission 27-28 

Miscellaneous, og 

Indicator codes ( 1710 BI and BNI, Table 12 ) . . . . . . . . [ . ' . 44 

Indirect Addressing 1 g 

for instructions 26, 28, 29, 34 

for macro-instructions 43 

Input device codes and summary (Table 6) 32 

Input instructions and summary (Table 8) 32, 34 

Instructions card format ' gg 

Instructions, Loading 

See Loader program 
Internal Data Transmission instructions and 

summary (Table 3) , . .27 28 

Items, defined ' jq 

in imperative statement 10 

Label 

characters permitted in, g 

five characters or less, headed 39 

five characters or less, treatment in symbol table 80 

six characters preceded by asterisk in listing 94 



. , Pa s e 

six characters, treatment in symbol table 40 

siz ° 8, 80 

table, See Symbol table 

variable length 79 

Language 

machine g 

symbolic 5 

Library 

change card gg 

packages g 

subroutines g 45 

Line number o 

Linkage 

first 48 

instructions g 47 

secondary 43 

for bypassing PICK 74 

subroutine 70 73 

Load Dividend Immediate (LDM) instruction 26 

Load Dividend (LD) instruction 26 

Loader program 41 81> g3 

Loading 

condenser program 97 

subroutines 

card • 93 

ta P e 93 

tape modifier 76 96 

1620/1710 Two-Pass Processor 

card 93 

ta P e 92 

Location assignment counter 17 24 37 41 

Logic instructions 29 

Macro-instructions (See also Subroutines) 5, 47 

Arithmetic 47 

Branch and Transmit Floating ( BTFS ) 64 

card format (output) 37 

Data transmission 47 

Floating Add (FA) .......57-58 

Floating Arctangent (FATN) gg 

Floating Cosine ( FCOS ) gg 

Floating Divide (FD) gg 

Floating Exponential (Base 10) FEXT 67 

Floating Exponential (Natural) FEX 66 

Floating Logarithm (Base 10) FLOG 68 

Floating Logarithm (Natural) FLN 68 

Floating Multiply (FM) .' 53 

Floating Shift Left (FSLS) 62 

Floating Shift Right (FSRS) 61 

Floating Sine (FSIN) 65 

Floating Square Root ( FSQR) 64 

Floating Subtract (FS ) .... 53 

Functional 47 

indirect addressing in, 43 

operation of 70 

rules for coding, 43 

Transmit Floating (TFLS ) 63 

Magnetic tape, See Tape 

Mantissa 

defined g2 

entering, length 94 

MAR Check Indicator code 44 

Mask Indicator code 44 
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Page 

Mask Interrupts (MK) instruction 43 

Messages 

during adding of macro to tape 77 

during preparation of new tape 76 

error 54 > 90 

Miscellaneous instructions 3e 

Mnemonics 6,8,26,28-31,34-36 

unique imperative 29-31, 34-35 

unique ( adding subroutines ) 69 

Modification of variable length subroutine 73 

Modifier constants 72-73 

Move Flag (MF) instruction 36 

Multiplexer Complete, code 44 

Multiply Immediate (MM) instruction 26 

Multiply ( M ) instruction 26 

N digit, defined 53 

Nesting of routines 40 

No Operation (NOP) instruction 36 

Normalized, defined 52 

effects of 53 

Object deck 

go 

condensed °° 

uncondensed °"> 

Object program 5, 17 

Operand 

address adjustment of 1! > 

asterisk, use of 

at ( @ ) sign, use of * 2 

blank in, 

comma, use of - 1 

dollar sign, use of ^ 

end-of-line character, use of H 

flag indicator * 2 

modifiers 

special characters in • • *" 

types of addresses used as, * 3 

See also P and Q operands 

Operating procedures 92 

Operation code 

coding sheet field " 

Control 6 > 36 

Declarative 6 > 16 

Imperative 6 > 25 

Operator Entry Indicator code 44 

Operators ( mathematical ) 15 

Origin 36,37,69,76 

Output deck 

condensed 

format 83 

uncondensed 83 

Output device codes summary (Table 6) , 32 

Output instructions summary (Table 8) ■ 34 

Output listing 109 

Overflow, exponent ", 55 

P operand 10 " 15 

modifier constants 72 

See also Operands 

Paper tape, See Tape 

Pass 1 operation 93 



Page 

Pass 2 operation 93 

Parenthesis 

close, (special character) 9 

open, ( special character ) 9 

Patch card 

coding sheet "5 

format 95 

use 96 

Period ( special character ) ° 

Pick subroutine 46, 49, 57 

address equivalents for, '1 

bypassing of, 74 

functions '* 

Process Branch Indicators 1-20, codes 44 

Process Interrupts 1-4, codes 44 

Processing source program "° 

Processor 

distribution order numbers 5 

function **, 46 

modification for additional storage 15, 96 

programs 

1620/1710 Two-Pass Card 5, 79, 82, 84 

1620/1710 Two-Pass Paper Tape 5, 79, 81, 82 

7090 Tape 5 > 102 

Product area *9 

Program defined 45 

Program switches 

1620/1710 Two-Pass Processor, card or tape . . .83, 89, 90-94 

Tape modifier program 76-78, 96 

Programming the 1620/1710 17 

Programs 

S3e Sample assembled programs 



Q operand 10 " 15 

in Immediate instructions * 3 

See also Operands 

Read Alphamerically Card (RACD) instruction 85 

Read Alphamerically Paper Tape (RAPT) instruction 35 

Read Alphamerically (RA) instruction 35 

Read Alphamerically Typewriter (RATY) instruction 35 

Read Numerically Paper Tape (RNPT) instruction 34 

Read Numerically (RN) instruction 34 

Read Numerically Typewriter (RNTY) instruction 34 

Record mark 12, 20, 21 

Remarks 9 > 10 

Return Carriage Typewriter (RCTY) instruction 35 

Routine, defined 45 

Rules for statement writing 10, 25 

Sample assembled programs I 09 

Scientific notation 51 

Select ADC and Increment (SLAD) instruction 45 

Select ADC Register (SLAR) instruction 43 

Select Address and Contact Operate (SACO) instruction . . 43 

Select Address and Operate ( SAO ) instruction 43 

Select Address and Provide Output Signal 

( SAOS ) instruction 43 

Select Address (SA) instruction 43 

Select Contact Block (SLCB) instruction 43 

Select Manual Entry Switches (SLME) instruction 43 
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Page 

Select Read Numerically (SLRN) instruction 43 

Select Real-Time Clock (SLTC) instruction 43 

Select TAS (SLTA) instruction 43 

Sequencing 

statements , 8 

subroutines 50 

Set Flag ( SF ) instruction 36 

Shilling ( / ) mark ( special character ) 8 

Sign control in floating point arithmetic 52 

Source language format 6 

Source program 

assembling 79 94 

card g 

defined 5 

patching ( altering ) of, 96 

pre-editing 94 

processing, 93 

statements, sequencing of 8 

Space Typewriter (SPTY) instruction 35 

Special characters 

for statement writing 10-12 

invalid in operands 109 

permitted in labels 8 

Special End ( SEND) statement 36, 38 

Statement Writing 10 

summary of rules 25 

Statements 

elements in, 10 

length 10 

sequencing of, 8 

special characters used in 10 

types of, 10 

Storage 

additional, 96 

address specified by DS statement 18 

conserved by address adjustment 16 

for labels, minimum and maximum size 80 

for macro-instructions 56 

modification of Two-Pass Processor for additional 96 

subroutines 56 

See also Working Area 

Storage layout of 1620/1710 Two-Pass Processor 79 

Subroutine 
card decks 

order 4g 

types 46 

defined 45 

error messages 54 

paper tape 

order 49 

types 46 

processor 50 

Sets 46 

storage requirements (Table 16) 56 

tape, See Tape 

Subroutines 5g 

Adding, 4 6> 69 

Adding, to card 69 

Adding, to tape 76 

Addresses required for adding, 71 

Arithmetic, 45 

codes for sequencing, 50 

Data transmission, 55 

determining available storage for, 56 
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Equal/zero indicator 57, 60 

Functional 45 

Header card 73 

High/positive indicator 57, 60 

incorporating, in subroutine deck 74 

Library, 45 

overflow indicator 57 

pairing, 49 

sequence numbering of, 50 

trailer card 73 

writing 70 

See also Macro-instructions 

See also Sample assembled programs 

Subtract Immediate (SM) instruction 26 

Subtract ( S ) instruction 26 

Switch codes for 1710 BI and BNI instructions 

summary ( Table 12 ) 44 

Switches, See Program switches 

Symbol Table, 1620/1710 Two-Pass Processor 

determining capacity of, 80 

format of typeout, 94 

variable length label entry 79 

Symbolic 

address 14 

language 5 

operand ( Q ) in Immediate instructions 13 

programming, defined 6 

Symbolic Programming System, advantages 4, 5 

Tabulate Typewriter (TBTY) instruction 35 

Tape Processor, 1620/1710 Two-Pass 5 

adding macro-instructions to, 77 

in P ut 81, 92 

loading paper tape, 91 

modifying, for additional storage 15, 96 

operating procedures 93 

order of items on output, 81 

Pass 1 79 

Pass 2 79 

preparing new subroutine, 76 

program switches 83, 92 

storage '79 

Tape (magnetic), 7090 Processor 

input 102 

Pass 1 operations 193 

Pass 2 operations 103 

speed 103 

symbol table 103 

Terminal Address Selector (TAS) Busy Indicator code 44 

Terminal Address Selector (TAS ) Check Indicator code 44 

Terms ( in operands ) 15 

Trailer card 73 

format 74 

in sample problem 75 

Transfer Control and Load (TCD) instruction 36, 41 

card format 85 

Transfer to Return Address (TRA) instruction 36, 41 

card format 85 

Transmit Digit Immediate (TDM) instruction 28 

omitted flag indicator operand in 12 

Transmit Digit (TD) instruction 28 

Transmit Field Immediate (TFM) instruction 28 

Transmit Field (TF) instruction 28 
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Transmit Floating 

instruction (TFL) 28 

subroutine (TFLS) 45, 63 

Transfer Numerical Fill ( TNF ) instruction 28 

Transfer Numerical Strip (TNS) instruction 28 

Transmit Record (TR) instruction 28 

Truncation error *3 

in FATN macro 6e 

in FEX macro 66 

in FEXT macro 67 

in FSIN macro 65 

Two-Pass Processor, 1620/1710 79 

storage layout '9 

Typewriter 

control codes summary ( Table 7 ) 33 

input 81 > 93 

operating procedure 92 

Uncondensed output ( card ) 

format 83 " 88 

listing on 407 90 

Pass 2 83 " 88 

Underflow, exponent 53, 55 

Unmask Interrupts ( UMK) instruction 43 

Unnormalized 
defined 52 



Page 
effects of 52 

Variable length, defined 45 

Variable length label entry 79 

Variable length mantissa subroutines 45 

Wiring diagram for 407, uncondensed deck 89 

Working areas shared by PICK and other subroutines 72 

Write Alphamerically Card ( WACD ) instruction 35 

Write Alphamerically Paper Tape (WAPT) instruction .... 35 

Write Alphamerically Typewriter (WATY) instruction 35 

Write Alphamerically (WA) instruction 35 

Write Numerically Card (WNCD) instruction 34 

Write Numerically Paper Tape (WNPT) instruction 34 

Write Numerically Typewriter (WNTY) instruction 34 

Write Numerically ( WN ) instruction 34 

X, headed by 40 

1620/1710 Two-Pass Processor 79 

programming the, '■' 

subroutines, 45 

7090 Processor 102 
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